r
/
postlude
1
Fork 0
Code

Add undefined definition.

master
Joshua Potter 2018-01-13 23:55:47 -08:00
parent 4a87ddd6d6
commit b624393ea5
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
postlude.cabal
View File

@ -21,6 +21,7 @@ library
bytestring == 0.10.8.1, bytestring == 0.10.8.1,
exceptions == 0.8.3, exceptions == 0.8.3,
free == 4.12.4, free == 4.12.4,
ghc-prim == 0.5.0.0,
mtl == 2.2.1, mtl == 2.2.1,
text == 1.2.2.2, text == 1.2.2.2,
transformers == 0.5.5.0 transformers == 0.5.5.0

10
src/Postlude.hs
View File

@ -1,4 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeInType #-}
-- The following maps all imports into a single module alias for easy exporting. -- The following maps all imports into a single module alias for easy exporting.
-- In all cases, we choose to explicitly list all exports (and avoid the use of -- In all cases, we choose to explicitly list all exports (and avoid the use of
@ -304,3 +306,11 @@ import System.IO as X
import Text.Read as X import Text.Read as X
( read ( read
) )
import qualified GHC.Err as Err
import qualified GHC.Stack.Types as Stack.Types
import qualified GHC.Types as GHC.Types
undefined :: forall (r :: GHC.Types.RuntimeRep). forall (a :: GHC.Types.TYPE r).
Stack.Types.HasCallStack => a
undefined = Err.error "Postlude.undefined"