7 lines
145 B
Haskell
7 lines
145 B
Haskell
module Shared(forceRight) where
|
|
|
|
forceRight :: Either a b -> b
|
|
forceRight (Left _) = error "forced Right but got Left"
|
|
forceRight (Right b) = b
|
|
|