Skip to content

Instantly share code, notes, and snippets.

@wz1000

wz1000/SHM

Created May 15, 2018 06:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wz1000/db42d4f533ba7d2345934906b312f743 to your computer and use it in GitHub Desktop.
Save wz1000/db42d4f533ba7d2345934906b312f743 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SHM
main :: IO ()
main =
do code <- getContents
args <- getArgs
case consume options (map T.pack args) of
Succeeded (action,typ,exts) ->
outputWith action typ exts code
_ ->
error (T.unpack (textDescription (describe options [])))
[["Module SrcSpanInfo" Module 1 1 10 1]
["Decl SrcSpanInfo" TypeSig 1 1 1 14]
["Name SrcSpanInfo" Ident 1 1 1 5]
["Type SrcSpanInfo" TyApp 1 9 1 14]
["Type SrcSpanInfo" TyCon 1 9 1 11]
["QName SrcSpanInfo" UnQual 1 9 1 11]
["Name SrcSpanInfo" Ident 1 9 1 11]
["Type SrcSpanInfo" TyCon 1 12 1 14]
["QName SrcSpanInfo" Special 1 12 1 14]
["SpecialCon SrcSpanInfo" UnitCon 1 12 1 14]
["Decl SrcSpanInfo" PatBind 2 1 9 66]
["Pat SrcSpanInfo" PVar 2 1 2 5]
["Name SrcSpanInfo" Ident 2 1 2 5]
["Rhs SrcSpanInfo" UnGuardedRhs 2 6 9 66]
["Exp SrcSpanInfo" Do 3 3 9 66]
["Stmt SrcSpanInfo" Generator 3 6 3 25]
["Pat SrcSpanInfo" PVar 3 6 3 10]
["Name SrcSpanInfo" Ident 3 6 3 10]
["Exp SrcSpanInfo" Var 3 14 3 25]
["QName SrcSpanInfo" UnQual 3 14 3 25]
["Name SrcSpanInfo" Ident 3 14 3 25]
["Stmt SrcSpanInfo" Generator 4 6 4 21]
["Pat SrcSpanInfo" PVar 4 6 4 10]
["Name SrcSpanInfo" Ident 4 6 4 10]
["Exp SrcSpanInfo" Var 4 14 4 21]
["QName SrcSpanInfo" UnQual 4 14 4 21]
["Name SrcSpanInfo" Ident 4 14 4 21]
["Stmt SrcSpanInfo" Qualifier 5 6 9 66]
["Exp SrcSpanInfo" Case 5 6 9 66]
["Exp SrcSpanInfo" App 5 11 5 44]
["Exp SrcSpanInfo" App 5 11 5 26]
["Exp SrcSpanInfo" Var 5 11 5 18]
["QName SrcSpanInfo" UnQual 5 11 5 18]
["Name SrcSpanInfo" Ident 5 11 5 18]
["Exp SrcSpanInfo" Var 5 19 5 26]
["QName SrcSpanInfo" UnQual 5 19 5 26]
["Name SrcSpanInfo" Ident 5 19 5 26]
["Exp SrcSpanInfo" Paren 5 27 5 44]
["Exp SrcSpanInfo" App 5 28 5 43]
["Exp SrcSpanInfo" App 5 28 5 38]
["Exp SrcSpanInfo" Var 5 28 5 31]
["QName SrcSpanInfo" UnQual 5 28 5 31]
["Name SrcSpanInfo" Ident 5 28 5 31]
["Exp SrcSpanInfo" Var 5 32 5 38]
["QName SrcSpanInfo" Qual 5 32 5 38]
["ModuleName SrcSpanInfo" ModuleName 5 32 5 38]
["Name SrcSpanInfo" Ident 5 32 5 38]
["Exp SrcSpanInfo" Var 5 39 5 43]
["QName SrcSpanInfo" UnQual 5 39 5 43]
["Name SrcSpanInfo" Ident 5 39 5 43]
["Alt SrcSpanInfo" Alt 6 8 7 41]
["Pat SrcSpanInfo" PApp 6 8 6 35]
["QName SrcSpanInfo" UnQual 6 8 6 17]
["Name SrcSpanInfo" Ident 6 8 6 17]
["Pat SrcSpanInfo" PTuple 6 18 6 35]
["Pat SrcSpanInfo" PVar 6 19 6 25]
["Name SrcSpanInfo" Ident 6 19 6 25]
["Pat SrcSpanInfo" PVar 6 26 6 29]
["Name SrcSpanInfo" Ident 6 26 6 29]
["Pat SrcSpanInfo" PVar 6 30 6 34]
["Name SrcSpanInfo" Ident 6 30 6 34]
["Rhs SrcSpanInfo" UnGuardedRhs 6 36 7 41]
["Exp SrcSpanInfo" App 7 10 7 41]
["Exp SrcSpanInfo" App 7 10 7 36]
["Exp SrcSpanInfo" App 7 10 7 31]
["Exp SrcSpanInfo" App 7 10 7 27]
["Exp SrcSpanInfo" Var 7 10 7 20]
["QName SrcSpanInfo" UnQual 7 10 7 20]
["Name SrcSpanInfo" Ident 7 10 7 20]
["Exp SrcSpanInfo" Var 7 21 7 27]
["QName SrcSpanInfo" UnQual 7 21 7 27]
["Name SrcSpanInfo" Ident 7 21 7 27]
["Exp SrcSpanInfo" Var 7 28 7 31]
["QName SrcSpanInfo" UnQual 7 28 7 31]
["Name SrcSpanInfo" Ident 7 28 7 31]
["Exp SrcSpanInfo" Var 7 32 7 36]
["QName SrcSpanInfo" UnQual 7 32 7 36]
["Name SrcSpanInfo" Ident 7 32 7 36]
["Exp SrcSpanInfo" Var 7 37 7 41]
["QName SrcSpanInfo" UnQual 7 37 7 41]
["Name SrcSpanInfo" Ident 7 37 7 41]
["Alt SrcSpanInfo" Alt 8 8 9 66]
["Pat SrcSpanInfo" PWildCard 8 8 8 9]
["Rhs SrcSpanInfo" UnGuardedRhs 8 10 9 66]
["Exp SrcSpanInfo" App 9 10 9 66]
["Exp SrcSpanInfo" Var 9 10 9 15]
["QName SrcSpanInfo" UnQual 9 10 9 15]
["Name SrcSpanInfo" Ident 9 10 9 15]
["Exp SrcSpanInfo" Paren 9 16 9 66]
["Exp SrcSpanInfo" App 9 17 9 65]
["Exp SrcSpanInfo" Var 9 17 9 25]
["QName SrcSpanInfo" Qual 9 17 9 25]
["ModuleName SrcSpanInfo" ModuleName 9 17 9 25]
["Name SrcSpanInfo" Ident 9 17 9 25]
["Exp SrcSpanInfo" Paren 9 26 9 65]
["Exp SrcSpanInfo" App 9 27 9 64]
["Exp SrcSpanInfo" Var 9 27 9 42]
["QName SrcSpanInfo" UnQual 9 27 9 42]
["Name SrcSpanInfo" Ident 9 27 9 42]
["Exp SrcSpanInfo" Paren 9 43 9 64]
["Exp SrcSpanInfo" App 9 44 9 63]
["Exp SrcSpanInfo" App 9 44 9 60]
["Exp SrcSpanInfo" Var 9 44 9 52]
["QName SrcSpanInfo" UnQual 9 44 9 52]
["Name SrcSpanInfo" Ident 9 44 9 52]
["Exp SrcSpanInfo" Var 9 53 9 60]
["QName SrcSpanInfo" UnQual 9 53 9 60]
["Name SrcSpanInfo" Ident 9 53 9 60]
["Exp SrcSpanInfo" List 9 61 9 63]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment