/usr/web/sources/contrib/fernan/nhc98/src/prelude/Maybe/FromJust.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Maybe/FromJust.hs


module Maybe where

fromJust               :: Maybe a -> a
fromJust (Just a)      =  a
fromJust Nothing       =  error "Maybe.fromJust: Nothing"