ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 1 1 914 1
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 1 1 1 1
, SrcSpan "tests/examples/Directory.hs" 17 1 17 1
, SrcSpan "tests/examples/Directory.hs" 17 1 17 1
, SrcSpan "tests/examples/Directory.hs" 72 1 72 1
, SrcSpan "tests/examples/Directory.hs" 73 1 73 1
, SrcSpan "tests/examples/Directory.hs" 75 1 75 1
, SrcSpan "tests/examples/Directory.hs" 76 1 76 1
, SrcSpan "tests/examples/Directory.hs" 77 1 77 1
, SrcSpan "tests/examples/Directory.hs" 78 1 78 1
, SrcSpan "tests/examples/Directory.hs" 79 1 79 1
, SrcSpan "tests/examples/Directory.hs" 80 1 80 1
, SrcSpan "tests/examples/Directory.hs" 81 1 81 1
, SrcSpan "tests/examples/Directory.hs" 83 1 83 1
, SrcSpan "tests/examples/Directory.hs" 84 1 84 1
, SrcSpan "tests/examples/Directory.hs" 88 1 88 1
, SrcSpan "tests/examples/Directory.hs" 90 1 90 1
, SrcSpan "tests/examples/Directory.hs" 92 1 92 1
, SrcSpan "tests/examples/Directory.hs" 93 1 93 1
, SrcSpan "tests/examples/Directory.hs" 94 1 94 1
, SrcSpan "tests/examples/Directory.hs" 134 1 134 1
, SrcSpan "tests/examples/Directory.hs" 152 1 152 1
, SrcSpan "tests/examples/Directory.hs" 153 1 153 1
, SrcSpan "tests/examples/Directory.hs" 189 1 189 1
, SrcSpan "tests/examples/Directory.hs" 190 1 190 1
, SrcSpan "tests/examples/Directory.hs" 205 1 205 1
, SrcSpan "tests/examples/Directory.hs" 208 1 208 1
, SrcSpan "tests/examples/Directory.hs" 209 1 209 1
, SrcSpan "tests/examples/Directory.hs" 257 1 257 1
, SrcSpan "tests/examples/Directory.hs" 258 1 258 1
, SrcSpan "tests/examples/Directory.hs" 264 1 264 1
, SrcSpan "tests/examples/Directory.hs" 267 1 267 1
, SrcSpan "tests/examples/Directory.hs" 343 1 343 1
, SrcSpan "tests/examples/Directory.hs" 344 1 344 1
, SrcSpan "tests/examples/Directory.hs" 350 1 350 1
, SrcSpan "tests/examples/Directory.hs" 351 1 351 1
, SrcSpan "tests/examples/Directory.hs" 399 1 399 1
, SrcSpan "tests/examples/Directory.hs" 400 1 400 1
, SrcSpan "tests/examples/Directory.hs" 452 1 452 1
, SrcSpan "tests/examples/Directory.hs" 453 1 453 1
, SrcSpan "tests/examples/Directory.hs" 509 1 509 1
, SrcSpan "tests/examples/Directory.hs" 510 1 510 1
, SrcSpan "tests/examples/Directory.hs" 528 1 528 1
, SrcSpan "tests/examples/Directory.hs" 529 1 529 1
, SrcSpan "tests/examples/Directory.hs" 560 1 560 1
, SrcSpan "tests/examples/Directory.hs" 561 1 561 1
, SrcSpan "tests/examples/Directory.hs" 568 1 568 1
, SrcSpan "tests/examples/Directory.hs" 569 1 569 1
, SrcSpan "tests/examples/Directory.hs" 591 1 591 1
, SrcSpan "tests/examples/Directory.hs" 592 1 592 1
, SrcSpan "tests/examples/Directory.hs" 627 1 627 1
, SrcSpan "tests/examples/Directory.hs" 628 1 628 1
, SrcSpan "tests/examples/Directory.hs" 672 1 672 1
, SrcSpan "tests/examples/Directory.hs" 673 1 673 1
, SrcSpan "tests/examples/Directory.hs" 708 1 708 1
, SrcSpan "tests/examples/Directory.hs" 709 1 709 1
, SrcSpan "tests/examples/Directory.hs" 716 1 716 1
, SrcSpan "tests/examples/Directory.hs" 717 1 717 1
, SrcSpan "tests/examples/Directory.hs" 725 1 725 1
, SrcSpan "tests/examples/Directory.hs" 726 1 726 1
, SrcSpan "tests/examples/Directory.hs" 742 1 742 1
, SrcSpan "tests/examples/Directory.hs" 743 1 743 1
, SrcSpan "tests/examples/Directory.hs" 749 1 749 1
, SrcSpan "tests/examples/Directory.hs" 750 1 750 1
, SrcSpan "tests/examples/Directory.hs" 756 1 756 1
, SrcSpan "tests/examples/Directory.hs" 757 1 757 1
, SrcSpan "tests/examples/Directory.hs" 763 1 763 1
, SrcSpan "tests/examples/Directory.hs" 764 1 764 1
, SrcSpan "tests/examples/Directory.hs" 769 1 769 1
, SrcSpan "tests/examples/Directory.hs" 770 1 770 1
, SrcSpan "tests/examples/Directory.hs" 774 1 774 1
, SrcSpan "tests/examples/Directory.hs" 775 1 775 1
, SrcSpan "tests/examples/Directory.hs" 778 1 778 1
, SrcSpan "tests/examples/Directory.hs" 779 1 779 1
, SrcSpan "tests/examples/Directory.hs" 780 1 780 1
, SrcSpan "tests/examples/Directory.hs" 781 1 781 1
, SrcSpan "tests/examples/Directory.hs" 784 1 784 1
, SrcSpan "tests/examples/Directory.hs" 808 1 808 1
, SrcSpan "tests/examples/Directory.hs" 809 1 809 1
, SrcSpan "tests/examples/Directory.hs" 847 1 847 1
, SrcSpan "tests/examples/Directory.hs" 848 1 848 1
, SrcSpan "tests/examples/Directory.hs" 874 1 874 1
, SrcSpan "tests/examples/Directory.hs" 875 1 875 1
, SrcSpan "tests/examples/Directory.hs" 905 1 905 1
, SrcSpan "tests/examples/Directory.hs" 906 1 906 1
, SrcSpan "tests/examples/Directory.hs" 912 1 912 1
, SrcSpan "tests/examples/Directory.hs" 913 1 913 1
, SrcSpan "tests/examples/Directory.hs" 914 1 914 1
, SrcSpan "tests/examples/Directory.hs" 914 1 914 1
]
}
(Just
(ModuleHead
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 17 1 70 11
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 17 1 17 7
, SrcSpan "tests/examples/Directory.hs" 70 6 70 11
]
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 17 8 17 24
, srcInfoPoints = []
}
"System.Directory")
Nothing
(Just
(ExportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 18 4 70 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 18 4 18 5
, SrcSpan "tests/examples/Directory.hs" 23 5 23 6
, SrcSpan "tests/examples/Directory.hs" 24 5 24 6
, SrcSpan "tests/examples/Directory.hs" 25 5 25 6
, SrcSpan "tests/examples/Directory.hs" 26 5 26 6
, SrcSpan "tests/examples/Directory.hs" 28 5 28 6
, SrcSpan "tests/examples/Directory.hs" 29 5 29 6
, SrcSpan "tests/examples/Directory.hs" 30 5 30 6
, SrcSpan "tests/examples/Directory.hs" 33 5 33 6
, SrcSpan "tests/examples/Directory.hs" 34 5 34 6
, SrcSpan "tests/examples/Directory.hs" 35 5 35 6
, SrcSpan "tests/examples/Directory.hs" 36 5 36 6
, SrcSpan "tests/examples/Directory.hs" 39 5 39 6
, SrcSpan "tests/examples/Directory.hs" 40 5 40 6
, SrcSpan "tests/examples/Directory.hs" 41 5 41 6
, SrcSpan "tests/examples/Directory.hs" 43 5 43 6
, SrcSpan "tests/examples/Directory.hs" 44 5 44 6
, SrcSpan "tests/examples/Directory.hs" 45 5 45 6
, SrcSpan "tests/examples/Directory.hs" 48 5 48 6
, SrcSpan "tests/examples/Directory.hs" 49 5 49 6
, SrcSpan "tests/examples/Directory.hs" 55 5 55 6
, SrcSpan "tests/examples/Directory.hs" 63 5 63 6
, SrcSpan "tests/examples/Directory.hs" 64 5 64 6
, SrcSpan "tests/examples/Directory.hs" 65 5 65 6
, SrcSpan "tests/examples/Directory.hs" 69 5 69 6
, SrcSpan "tests/examples/Directory.hs" 70 4 70 5
]
}
[ EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 22 7 22 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 22 7 22 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 22 7 22 22
, srcInfoPoints = []
}
"createDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 23 7 23 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 23 7 23 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 23 7 23 31
, srcInfoPoints = []
}
"createDirectoryIfMissing"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 24 7 24 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 24 7 24 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 24 7 24 22
, srcInfoPoints = []
}
"removeDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 25 7 25 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 25 7 25 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 25 7 25 31
, srcInfoPoints = []
}
"removeDirectoryRecursive"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 26 7 26 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 26 7 26 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 26 7 26 22
, srcInfoPoints = []
}
"renameDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 28 7 28 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 28 7 28 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 28 7 28 27
, srcInfoPoints = []
}
"getDirectoryContents"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 29 7 29 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 29 7 29 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 29 7 29 26
, srcInfoPoints = []
}
"getCurrentDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 30 7 30 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 30 7 30 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 30 7 30 26
, srcInfoPoints = []
}
"setCurrentDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 33 7 33 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 33 7 33 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 33 7 33 23
, srcInfoPoints = []
}
"getHomeDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 34 7 34 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 34 7 34 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 34 7 34 30
, srcInfoPoints = []
}
"getAppUserDataDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 35 7 35 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 35 7 35 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 35 7 35 32
, srcInfoPoints = []
}
"getUserDocumentsDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 36 7 36 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 36 7 36 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 36 7 36 28
, srcInfoPoints = []
}
"getTemporaryDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 39 7 39 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 39 7 39 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 39 7 39 17
, srcInfoPoints = []
}
"removeFile"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 40 7 40 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 40 7 40 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 40 7 40 17
, srcInfoPoints = []
}
"renameFile"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 41 7 41 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 41 7 41 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 41 7 41 15
, srcInfoPoints = []
}
"copyFile"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 43 7 43 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 43 7 43 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 43 7 43 23
, srcInfoPoints = []
}
"canonicalizePath"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 44 7 44 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 44 7 44 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 44 7 44 37
, srcInfoPoints = []
}
"makeRelativeToCurrentDirectory"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 45 7 45 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 45 7 45 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 45 7 45 21
, srcInfoPoints = []
}
"findExecutable"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 48 7 48 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 48 7 48 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 48 7 48 20
, srcInfoPoints = []
}
"doesFileExist"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 49 7 49 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 49 7 49 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 49 7 49 25
, srcInfoPoints = []
}
"doesDirectoryExist"))
, EThingWith
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 55 7 61 8
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 55 18 55 19
, SrcSpan "tests/examples/Directory.hs" 56 16 56 17
, SrcSpan "tests/examples/Directory.hs" 57 13 57 14
, SrcSpan "tests/examples/Directory.hs" 58 13 58 14
, SrcSpan "tests/examples/Directory.hs" 59 15 59 16
, SrcSpan "tests/examples/Directory.hs" 61 7 61 8
]
}
(NoWildcard
SrcSpanInfo
{ srcInfoSpan = SrcSpan "" (-1) (-1) (-1) (-1)
, srcInfoPoints = []
})
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 55 7 55 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 55 7 55 18
, srcInfoPoints = []
}
"Permissions"))
[ ConName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 56 5 56 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 56 5 56 16
, srcInfoPoints = []
}
"Permissions")
, VarName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 57 5 57 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 57 5 57 13
, srcInfoPoints = []
}
"readable")
, VarName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 58 5 58 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 58 5 58 13
, srcInfoPoints = []
}
"writable")
, VarName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 59 5 59 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 59 5 59 15
, srcInfoPoints = []
}
"executable")
, VarName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 60 5 60 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 60 5 60 15
, srcInfoPoints = []
}
"searchable")
]
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 63 7 63 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 63 7 63 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 63 7 63 21
, srcInfoPoints = []
}
"getPermissions"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 64 7 64 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 64 7 64 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 64 7 64 21
, srcInfoPoints = []
}
"setPermissions"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 65 7 65 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 65 7 65 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 65 7 65 22
, srcInfoPoints = []
}
"copyPermissions"))
, EVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 69 7 69 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 69 7 69 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 69 7 69 26
, srcInfoPoints = []
}
"getModificationTime"))
]))))
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 1 1 1 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 1 1 1 13
, SrcSpan "tests/examples/Directory.hs" 1 38 1 39
, SrcSpan "tests/examples/Directory.hs" 1 65 1 68
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 1 14 1 38
, srcInfoPoints = []
}
"ForeignFunctionInterface"
, Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 1 40 1 64
, srcInfoPoints = []
}
"NondecreasingIndentation"
]
]
[ ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 72 1 72 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 72 1 72 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 72 8 72 15
, srcInfoPoints = []
}
"Prelude"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 72 16 72 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 72 16 72 22
, SrcSpan "tests/examples/Directory.hs" 72 23 72 24
, SrcSpan "tests/examples/Directory.hs" 72 31 72 32
]
}
True
[ IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 72 25 72 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 72 25 72 30
, srcInfoPoints = []
}
"catch")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 73 1 73 25
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 73 1 73 7
, SrcSpan "tests/examples/Directory.hs" 73 8 73 17
]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 73 18 73 25
, srcInfoPoints = []
}
"Prelude"
, importQualified = True
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 75 1 75 29
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 75 1 75 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 75 8 75 21
, srcInfoPoints = []
}
"Control.Monad"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 75 22 75 29
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 75 22 75 23
, SrcSpan "tests/examples/Directory.hs" 75 28 75 29
]
}
False
[ IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 75 23 75 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 75 23 75 28
, srcInfoPoints = []
}
"guard")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 76 1 76 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 76 1 76 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 76 8 76 26
, srcInfoPoints = []
}
"System.Environment"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 76 32 76 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 76 32 76 33
, SrcSpan "tests/examples/Directory.hs" 76 41 76 42
]
}
False
[ IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 76 34 76 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 76 34 76 40
, srcInfoPoints = []
}
"getEnv")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 77 1 77 23
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 77 1 77 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 77 8 77 23
, srcInfoPoints = []
}
"System.FilePath"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 78 1 78 17
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 78 1 78 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 78 8 78 17
, srcInfoPoints = []
}
"System.IO"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 1 79 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 79 1 79 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 8 79 23
, srcInfoPoints = []
}
"System.IO.Error"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 24 79 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 79 24 79 30
, SrcSpan "tests/examples/Directory.hs" 79 31 79 32
, SrcSpan "tests/examples/Directory.hs" 79 38 79 39
, SrcSpan "tests/examples/Directory.hs" 79 44 79 45
]
}
True
[ IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 33 79 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 33 79 38
, srcInfoPoints = []
}
"catch")
, IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 40 79 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 79 40 79 43
, srcInfoPoints = []
}
"try")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 1 80 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 80 1 80 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 8 80 21
, srcInfoPoints = []
}
"Control.Monad"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 32 80 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 80 32 80 33
, SrcSpan "tests/examples/Directory.hs" 80 38 80 39
, SrcSpan "tests/examples/Directory.hs" 80 47 80 48
]
}
False
[ IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 34 80 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 34 80 38
, srcInfoPoints = []
}
"when")
, IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 40 80 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 80 40 80 46
, srcInfoPoints = []
}
"unless")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 81 1 81 30
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 81 1 81 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 81 8 81 30
, srcInfoPoints = []
}
"Control.Exception.Base"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 83 1 83 15
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 83 1 83 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 83 8 83 15
, srcInfoPoints = []
}
"Foreign"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 84 1 84 17
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 84 1 84 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 84 8 84 17
, srcInfoPoints = []
}
"Foreign.C"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 88 1 88 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 88 1 88 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 88 8 88 19
, srcInfoPoints = []
}
"System.Time"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 88 32 88 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 88 32 88 33
, SrcSpan "tests/examples/Directory.hs" 88 48 88 49
]
}
False
[ IThingAll
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 88 34 88 47
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 88 43 88 44
, SrcSpan "tests/examples/Directory.hs" 88 44 88 46
, SrcSpan "tests/examples/Directory.hs" 88 46 88 47
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 88 34 88 43
, srcInfoPoints = []
}
"ClockTime")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 1 90 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 90 1 90 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 8 90 24
, srcInfoPoints = []
}
"GHC.IO.Exception"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs =
Just
(ImportSpecList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 25 90 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 90 25 90 26
, SrcSpan "tests/examples/Directory.hs" 90 42 90 43
, SrcSpan "tests/examples/Directory.hs" 90 59 90 60
, SrcSpan "tests/examples/Directory.hs" 90 73 90 74
]
}
False
[ IThingAll
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 27 90 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 90 38 90 39
, SrcSpan "tests/examples/Directory.hs" 90 39 90 41
, SrcSpan "tests/examples/Directory.hs" 90 41 90 42
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 27 90 38
, srcInfoPoints = []
}
"IOException")
, IThingAll
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 44 90 59
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 90 55 90 56
, SrcSpan "tests/examples/Directory.hs" 90 56 90 58
, SrcSpan "tests/examples/Directory.hs" 90 58 90 59
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 44 90 55
, srcInfoPoints = []
}
"IOErrorType")
, IVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 61 90 72
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 90 61 90 72
, srcInfoPoints = []
}
"ioException")
])
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 92 1 92 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 92 1 92 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 92 8 92 26
, srcInfoPoints = []
}
"System.Posix.Types"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 93 1 93 30
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 93 1 93 7 ]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 93 8 93 30
, srcInfoPoints = []
}
"System.Posix.Internals"
, importQualified = False
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs = Nothing
, importSpecs = Nothing
}
, ImportDecl
{ importAnn =
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 94 1 94 39
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 94 1 94 7
, SrcSpan "tests/examples/Directory.hs" 94 8 94 17
, SrcSpan "tests/examples/Directory.hs" 94 31 94 33
]
}
, importModule =
ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 94 18 94 30
, srcInfoPoints = []
}
"System.Win32"
, importQualified = True
, importSrc = False
, importSafe = False
, importPkg = Nothing
, importAs =
Just
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 94 34 94 39
, srcInfoPoints = []
}
"Win32")
, importSpecs = Nothing
}
]
[ DataDecl
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 134 1 138 36
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 135 2 135 3 ]
}
(DataType
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 134 1 134 5
, srcInfoPoints = []
})
Nothing
(DHead
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 134 6 134 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 134 6 134 17
, srcInfoPoints = []
}
"Permissions"))
[ QualConDecl
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 135 4 138 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 135 16 135 17
, SrcSpan "tests/examples/Directory.hs" 138 4 138 5
]
}
Nothing
Nothing
(RecDecl
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 135 4 138 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 135 16 135 17
, SrcSpan "tests/examples/Directory.hs" 138 4 138 5
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 135 4 135 15
, srcInfoPoints = []
}
"Permissions")
[ FieldDecl
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 136 5 137 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 136 13 136 14
, SrcSpan "tests/examples/Directory.hs" 136 25 136 26
, SrcSpan "tests/examples/Directory.hs" 137 15 137 16
, SrcSpan "tests/examples/Directory.hs" 137 28 137 30
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 136 5 136 13
, srcInfoPoints = []
}
"readable"
, Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 136 17 136 25
, srcInfoPoints = []
}
"writable"
, Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 137 5 137 15
, srcInfoPoints = []
}
"executable"
, Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 137 17 137 27
, srcInfoPoints = []
}
"searchable"
]
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 137 31 137 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 137 31 137 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 137 31 137 35
, srcInfoPoints = []
}
"Bool")))
])
]
[ Deriving
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 6 138 36
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 138 6 138 14
, SrcSpan "tests/examples/Directory.hs" 138 15 138 16
, SrcSpan "tests/examples/Directory.hs" 138 18 138 19
, SrcSpan "tests/examples/Directory.hs" 138 23 138 24
, SrcSpan "tests/examples/Directory.hs" 138 29 138 30
, SrcSpan "tests/examples/Directory.hs" 138 35 138 36
]
}
Nothing
[ IRule
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 16 138 18
, srcInfoPoints = []
}
Nothing
Nothing
(IHCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 16 138 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 16 138 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 16 138 18
, srcInfoPoints = []
}
"Eq")))
, IRule
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 20 138 23
, srcInfoPoints = []
}
Nothing
Nothing
(IHCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 20 138 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 20 138 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 20 138 23
, srcInfoPoints = []
}
"Ord")))
, IRule
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 25 138 29
, srcInfoPoints = []
}
Nothing
Nothing
(IHCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 25 138 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 25 138 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 25 138 29
, srcInfoPoints = []
}
"Read")))
, IRule
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 31 138 35
, srcInfoPoints = []
}
Nothing
Nothing
(IHCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 31 138 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 31 138 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 138 31 138 35
, srcInfoPoints = []
}
"Show")))
]
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 1 152 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 152 16 152 18 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 1 152 15
, srcInfoPoints = []
}
"getPermissions"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 19 152 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 152 28 152 30 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 19 152 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 19 152 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 19 152 27
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 31 152 45
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 31 152 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 31 152 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 31 152 33
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 34 152 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 34 152 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 152 34 152 45
, srcInfoPoints = []
}
"Permissions")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 1 175 5
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 1 175 5
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 1 153 15
, srcInfoPoints = []
}
"getPermissions")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 16 153 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 16 153 20
, srcInfoPoints = []
}
"name")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 21 175 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 153 21 153 22 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 153 23 175 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 153 23 153 25
, SrcSpan "tests/examples/Directory.hs" 154 3 154 3
, SrcSpan "tests/examples/Directory.hs" 189 1 189 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 154 3 175 5
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 154 3 175 5
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 154 3 154 20
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 3 154 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 3 154 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 3 154 15
, srcInfoPoints = []
}
"withFilePath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 16 154 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 16 154 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 16 154 20
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 154 21 154 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 21 154 22
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 21 154 22
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 154 23 175 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 154 23 154 24
, SrcSpan "tests/examples/Directory.hs" 154 26 154 28
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 24 154 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 24 154 25
, srcInfoPoints = []
}
"s")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 154 29 175 5
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 154 29 154 31
, SrcSpan "tests/examples/Directory.hs" 161 3 161 3
, SrcSpan "tests/examples/Directory.hs" 161 3 161 3
, SrcSpan "tests/examples/Directory.hs" 189 1 189 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 161 3 175 5
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 161 3 175 5
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 161 3 161 26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 3 161 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 3 161 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
161
3
161
14
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 15 161 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 15 161 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
161
15
161
26
, srcInfoPoints = []
}
"sizeof_stat"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 161 27 161 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 27 161 28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 27 161 28
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 161 29 175 5
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 161 29 161 30
, SrcSpan
"tests/examples/Directory.hs" 161 38 161 40
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 31 161 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
161
31
161
37
, srcInfoPoints = []
}
"p_stat")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 161 41 175 5
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 161 41 161 43
, SrcSpan
"tests/examples/Directory.hs" 162 3 162 3
, SrcSpan
"tests/examples/Directory.hs" 162 3 162 3
, SrcSpan
"tests/examples/Directory.hs" 163 3 163 3
, SrcSpan
"tests/examples/Directory.hs" 164 3 164 3
, SrcSpan
"tests/examples/Directory.hs" 165 3 165 3
, SrcSpan
"tests/examples/Directory.hs" 166 3 166 3
, SrcSpan
"tests/examples/Directory.hs" 167 3 167 3
, SrcSpan
"tests/examples/Directory.hs" 168 3 168 3
, SrcSpan
"tests/examples/Directory.hs" 189 1 189 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 162 3 162 57
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
3
162
57
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
3
162
39
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
3
162
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
3
162
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
3
162
22
, srcInfoPoints = []
}
"throwErrnoIfMinus1_")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
23
162
39
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
23
162
39
, srcInfoPoints = []
}
"getPermissions"
"getPermissions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
40
162
41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
40
162
41
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
40
162
41
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
42
162
57
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
42
162
50
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
42
162
48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
42
162
48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
42
162
48
, srcInfoPoints = []
}
"c_stat")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
49
162
50
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
49
162
50
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
49
162
50
, srcInfoPoints = []
}
"s"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
51
162
57
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
51
162
57
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
162
51
162
57
, srcInfoPoints = []
}
"p_stat")))))
, Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 163 3 163 25
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
163
8
163
10
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
3
163
7
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
3
163
7
, srcInfoPoints = []
}
"mode"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
11
163
25
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
11
163
18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
11
163
18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
11
163
18
, srcInfoPoints = []
}
"st_mode")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
19
163
25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
19
163
25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
163
19
163
25
, srcInfoPoints = []
}
"p_stat"))))
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 164 3 164 36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
164
3
164
6
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
7
164
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
164
7
164
7
, SrcSpan
"tests/examples/Directory.hs"
165
3
165
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
7
164
36
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
7
164
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
7
164
15
, srcInfoPoints = []
}
"usr_read"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
18
164
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
164
18
164
19
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
20
164
36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
20
164
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
20
164
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
20
164
24
, srcInfoPoints = []
}
"mode")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
25
164
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
25
164
28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
25
164
28
, srcInfoPoints = []
}
".&.")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
29
164
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
29
164
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
164
29
164
36
, srcInfoPoints = []
}
"s_IRUSR")))))
Nothing
])
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 165 3 165 36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
165
3
165
6
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
7
165
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
165
7
165
7
, SrcSpan
"tests/examples/Directory.hs"
166
3
166
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
7
165
36
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
7
165
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
7
165
16
, srcInfoPoints = []
}
"usr_write"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
18
165
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
165
18
165
19
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
20
165
36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
20
165
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
20
165
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
20
165
24
, srcInfoPoints = []
}
"mode")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
25
165
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
25
165
28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
25
165
28
, srcInfoPoints = []
}
".&.")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
29
165
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
29
165
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
165
29
165
36
, srcInfoPoints = []
}
"s_IWUSR")))))
Nothing
])
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 166 3 166 36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
166
3
166
6
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
7
166
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
166
7
166
7
, SrcSpan
"tests/examples/Directory.hs"
167
3
167
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
7
166
36
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
7
166
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
7
166
15
, srcInfoPoints = []
}
"usr_exec"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
18
166
36
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
166
18
166
19
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
20
166
36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
20
166
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
20
166
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
20
166
24
, srcInfoPoints = []
}
"mode")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
25
166
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
25
166
28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
25
166
28
, srcInfoPoints = []
}
".&.")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
29
166
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
29
166
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
166
29
166
36
, srcInfoPoints = []
}
"s_IXUSR")))))
Nothing
])
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 167 3 167 32
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
167
3
167
6
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
7
167
32
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
167
7
167
7
, SrcSpan
"tests/examples/Directory.hs"
168
3
168
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
7
167
32
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
7
167
13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
7
167
13
, srcInfoPoints = []
}
"is_dir"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
14
167
32
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
167
14
167
15
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
16
167
32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
16
167
20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
16
167
20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
16
167
20
, srcInfoPoints = []
}
"mode")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
21
167
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
21
167
24
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
21
167
24
, srcInfoPoints = []
}
".&.")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
25
167
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
25
167
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
167
25
167
32
, srcInfoPoints = []
}
"s_IFDIR")))))
Nothing
])
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 168 3 175 5
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
168
3
175
5
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
168
3
168
9
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
168
3
168
9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
168
3
168
9
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
168
10
175
5
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
168
10
168
11
, SrcSpan
"tests/examples/Directory.hs"
175
4
175
5
]
}
(RecConstr
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
169
5
174
6
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
169
17
169
18
, SrcSpan
"tests/examples/Directory.hs"
170
34
170
35
, SrcSpan
"tests/examples/Directory.hs"
171
34
171
35
, SrcSpan
"tests/examples/Directory.hs"
172
48
172
49
, SrcSpan
"tests/examples/Directory.hs"
174
5
174
6
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
169
5
169
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
169
5
169
16
, srcInfoPoints = []
}
"Permissions"))
[ FieldUpdate
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
7
170
34
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
170
18
170
19
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
7
170
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
7
170
15
, srcInfoPoints = []
}
"readable"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
20
170
34
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
20
170
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
20
170
28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
20
170
28
, srcInfoPoints = []
}
"usr_read")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
30
170
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
30
170
32
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
30
170
32
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
33
170
34
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
170
33
170
34
, srcInfoPoints = []
}
0
"0")))
, FieldUpdate
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
7
171
34
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
171
18
171
19
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
7
171
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
7
171
15
, srcInfoPoints = []
}
"writable"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
20
171
34
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
20
171
29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
20
171
29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
20
171
29
, srcInfoPoints = []
}
"usr_write")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
30
171
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
30
171
32
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
30
171
32
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
33
171
34
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
171
33
171
34
, srcInfoPoints = []
}
0
"0")))
, FieldUpdate
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
7
172
48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
172
18
172
19
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
7
172
17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
7
172
17
, srcInfoPoints = []
}
"executable"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
20
172
48
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
20
172
31
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
20
172
26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
20
172
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
20
172
26
, srcInfoPoints = []
}
"is_dir")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
27
172
29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
27
172
29
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
27
172
29
, srcInfoPoints = []
}
"==")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
30
172
31
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
30
172
31
, srcInfoPoints = []
}
0
"0")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
32
172
34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
32
172
34
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
32
172
34
, srcInfoPoints = []
}
"&&")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
35
172
48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
35
172
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
35
172
43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
35
172
43
, srcInfoPoints = []
}
"usr_exec")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
44
172
46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
44
172
46
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
44
172
46
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
47
172
48
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
172
47
172
48
, srcInfoPoints = []
}
0
"0"))))
, FieldUpdate
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
7
173
48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
173
18
173
19
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
7
173
17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
7
173
17
, srcInfoPoints = []
}
"searchable"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
20
173
48
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
20
173
31
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
20
173
26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
20
173
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
20
173
26
, srcInfoPoints = []
}
"is_dir")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
27
173
29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
27
173
29
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
27
173
29
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
30
173
31
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
30
173
31
, srcInfoPoints = []
}
0
"0")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
32
173
34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
32
173
34
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
32
173
34
, srcInfoPoints = []
}
"&&")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
35
173
48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
35
173
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
35
173
43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
35
173
43
, srcInfoPoints = []
}
"usr_exec")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
44
173
46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
44
173
46
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
44
173
46
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
47
173
48
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
173
47
173
48
, srcInfoPoints = []
}
0
"0"))))
])))
])))
])))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 1 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 16 189 18 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 1 189 15
, srcInfoPoints = []
}
"setPermissions"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 19 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 28 189 30 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 19 189 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 19 189 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 19 189 27
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 31 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 43 189 45 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 31 189 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 31 189 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 31 189 42
, srcInfoPoints = []
}
"Permissions")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 46 189 51
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 46 189 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 46 189 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 46 189 48
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 49 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 49 189 50
, SrcSpan "tests/examples/Directory.hs" 189 50 189 51
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 49 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 49 189 50
, SrcSpan "tests/examples/Directory.hs" 189 50 189 51
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 189 49 189 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 189 49 189 50
, SrcSpan "tests/examples/Directory.hs" 189 50 189 51
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 1 203 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 200 2 200 7 ]
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 1 203 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 200 2 200 7 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 1 190 15
, srcInfoPoints = []
}
"setPermissions")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 16 190 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 16 190 20
, srcInfoPoints = []
}
"name")
, PParen
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 21 190 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 190 21 190 22
, SrcSpan "tests/examples/Directory.hs" 190 41 190 42
]
}
(PApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 22 190 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 22 190 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 22 190 33
, srcInfoPoints = []
}
"Permissions"))
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 34 190 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 34 190 35
, srcInfoPoints = []
}
"r")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 36 190 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 36 190 37
, srcInfoPoints = []
}
"w")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 38 190 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 38 190 39
, srcInfoPoints = []
}
"e")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 40 190 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 40 190 41
, srcInfoPoints = []
}
"s")
])
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 43 199 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 190 43 190 44 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 190 45 199 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 190 45 190 47
, SrcSpan "tests/examples/Directory.hs" 191 3 191 3
, SrcSpan "tests/examples/Directory.hs" 200 2 200 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 191 3 199 28
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 191 3 199 28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 191 3 191 26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 3 191 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 3 191 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 3 191 14
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 15 191 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 15 191 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 15 191 26
, srcInfoPoints = []
}
"sizeof_stat"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 191 27 191 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 27 191 28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 27 191 28
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 191 29 199 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 191 29 191 30
, SrcSpan "tests/examples/Directory.hs" 191 38 191 40
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 31 191 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 31 191 37
, srcInfoPoints = []
}
"p_stat")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 191 41 199 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 191 41 191 43
, SrcSpan "tests/examples/Directory.hs" 192 3 192 3
, SrcSpan "tests/examples/Directory.hs" 192 3 192 3
, SrcSpan "tests/examples/Directory.hs" 200 2 200 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 192 3 199 28
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 192 3 199 28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 192 3 192 20
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 3 192 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 3 192 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
192
3
192
15
, srcInfoPoints = []
}
"withFilePath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 16 192 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 16 192 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
192
16
192
20
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 192 21 192 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 21 192 22
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 21 192 22
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 192 23 199 28
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 192 23 192 24
, SrcSpan
"tests/examples/Directory.hs" 192 31 192 33
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 24 192 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
192
24
192
30
, srcInfoPoints = []
}
"p_name")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 192 34 199 28
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 192 34 192 36
, SrcSpan
"tests/examples/Directory.hs" 193 5 193 5
, SrcSpan
"tests/examples/Directory.hs" 200 2 200 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 193 5 199 28
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
5
199
28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
5
193
41
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
5
193
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
5
193
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
5
193
24
, srcInfoPoints = []
}
"throwErrnoIfMinus1_")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
25
193
41
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
25
193
41
, srcInfoPoints = []
}
"setPermissions"
"setPermissions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
42
193
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
42
193
43
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
42
193
43
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
193
44
199
28
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
193
44
193
46
, SrcSpan
"tests/examples/Directory.hs"
194
7
194
7
, SrcSpan
"tests/examples/Directory.hs"
195
7
195
7
, SrcSpan
"tests/examples/Directory.hs"
196
7
196
7
, SrcSpan
"tests/examples/Directory.hs"
197
7
197
7
, SrcSpan
"tests/examples/Directory.hs"
198
7
198
7
, SrcSpan
"tests/examples/Directory.hs"
199
7
199
7
, SrcSpan
"tests/examples/Directory.hs"
200
2
200
0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
20
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
7
194
13
, srcInfoPoints = []
}
"c_stat")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
14
194
20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
14
194
20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
14
194
20
, srcInfoPoints = []
}
"p_name"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
21
194
27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
21
194
27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
194
21
194
27
, srcInfoPoints = []
}
"p_stat"))))
, Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
7
195
29
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
195
12
195
14
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
7
195
11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
7
195
11
, srcInfoPoints = []
}
"mode"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
15
195
29
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
15
195
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
15
195
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
15
195
22
, srcInfoPoints = []
}
"st_mode")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
23
195
29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
23
195
29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
195
23
195
29
, srcInfoPoints = []
}
"p_stat"))))
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
7
196
43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
196
7
196
10
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
11
196
43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
196
11
196
11
, SrcSpan
"tests/examples/Directory.hs"
197
7
197
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
11
196
43
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
11
196
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
11
196
16
, srcInfoPoints = []
}
"mode1"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
17
196
43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
196
17
196
18
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
43
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
30
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
28
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
28
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
19
196
28
, srcInfoPoints =
[]
}
"modifyBit")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
29
196
30
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
29
196
30
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
29
196
30
, srcInfoPoints =
[]
}
"r"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
31
196
35
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
31
196
35
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
31
196
35
, srcInfoPoints =
[]
}
"mode"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
36
196
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
36
196
43
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
196
36
196
43
, srcInfoPoints =
[]
}
"s_IRUSR")))))
Nothing
])
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
7
197
44
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
197
7
197
10
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
11
197
44
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
197
11
197
11
, SrcSpan
"tests/examples/Directory.hs"
198
7
198
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
11
197
44
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
11
197
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
11
197
16
, srcInfoPoints = []
}
"mode2"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
17
197
44
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
197
17
197
18
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
44
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
36
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
30
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
28
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
28
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
19
197
28
, srcInfoPoints =
[]
}
"modifyBit")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
29
197
30
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
29
197
30
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
29
197
30
, srcInfoPoints =
[]
}
"w"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
31
197
36
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
31
197
36
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
31
197
36
, srcInfoPoints =
[]
}
"mode1"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
37
197
44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
37
197
44
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
197
37
197
44
, srcInfoPoints =
[]
}
"s_IWUSR")))))
Nothing
])
, LetStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
7
198
51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
198
7
198
10
]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
11
198
51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
198
11
198
11
, SrcSpan
"tests/examples/Directory.hs"
199
7
199
0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
11
198
51
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
11
198
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
11
198
16
, srcInfoPoints = []
}
"mode3"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
17
198
51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
198
17
198
18
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
51
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
43
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
37
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
28
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
28
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
19
198
28
, srcInfoPoints =
[]
}
"modifyBit")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
29
198
37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
198
29
198
30
, SrcSpan
"tests/examples/Directory.hs"
198
36
198
37
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
30
198
36
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
30
198
31
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
30
198
31
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
30
198
31
, srcInfoPoints =
[]
}
"e")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
32
198
34
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
32
198
34
, srcInfoPoints =
[]
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
32
198
34
, srcInfoPoints =
[]
}
"||")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
35
198
36
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
35
198
36
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
35
198
36
, srcInfoPoints =
[]
}
"s"))))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
38
198
43
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
38
198
43
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
38
198
43
, srcInfoPoints =
[]
}
"mode2"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
44
198
51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
44
198
51
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
198
44
198
51
, srcInfoPoints =
[]
}
"s_IXUSR")))))
Nothing
])
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
22
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
7
199
15
, srcInfoPoints = []
}
"c_wchmod")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
16
199
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
16
199
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
16
199
22
, srcInfoPoints = []
}
"p_name"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
23
199
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
23
199
28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
199
23
199
28
, srcInfoPoints = []
}
"mode3"))))
]))
])))
])))
]))
(Just
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 4 203 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 201 4 201 4
, SrcSpan "tests/examples/Directory.hs" 202 4 202 4
, SrcSpan "tests/examples/Directory.hs" 203 4 203 4
, SrcSpan "tests/examples/Directory.hs" 205 1 205 0
]
}
[ TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 4 201 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 201 14 201 16 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 4 201 13
, srcInfoPoints = []
}
"modifyBit"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 17 201 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 201 22 201 24 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 17 201 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 17 201 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 17 201 21
, srcInfoPoints = []
}
"Bool")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 201 25 201 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 201 31 201 33 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 25 201 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 25 201 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 25 201 30
, srcInfoPoints = []
}
"CMode")))
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 34 201 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 201 40 201 42 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 34 201 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 34 201 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 34 201 39
, srcInfoPoints = []
}
"CMode")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 43 201 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 43 201 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 201 43 201 48
, srcInfoPoints = []
}
"CMode"))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 202 4 203 33
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 202 4 202 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 202 4 202 13
, srcInfoPoints = []
}
"modifyBit")
[ PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 14 202 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 14 202 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 14 202 19
, srcInfoPoints = []
}
"False"))
[]
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 20 202 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 20 202 21
, srcInfoPoints = []
}
"m")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 22 202 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 22 202 23
, srcInfoPoints = []
}
"b")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 202 24 202 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 202 24 202 25 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 26 202 46
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 26 202 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 26 202 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 26 202 27
, srcInfoPoints = []
}
"m")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 28 202 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 28 202 31
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 28 202 31
, srcInfoPoints = []
}
".&.")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 32 202 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 202 32 202 33
, SrcSpan "tests/examples/Directory.hs" 202 45 202 46
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 33 202 45
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 33 202 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 202 33 202 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 202 33 202 43
, srcInfoPoints = []
}
"complement")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 202 44 202 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 202 44 202 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 202 44 202 45
, srcInfoPoints = []
}
"b")))))))
Nothing
, Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 203 4 203 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 203 4 203 13
, srcInfoPoints = []
}
"modifyBit")
[ PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 14 203 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 14 203 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 14 203 18
, srcInfoPoints = []
}
"True"))
[]
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 20 203 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 20 203 21
, srcInfoPoints = []
}
"m")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 22 203 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 22 203 23
, srcInfoPoints = []
}
"b")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 203 24 203 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 203 24 203 25 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 26 203 33
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 26 203 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 26 203 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 26 203 27
, srcInfoPoints = []
}
"m")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 28 203 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 28 203 31
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 28 203 31
, srcInfoPoints = []
}
".|.")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 32 203 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 32 203 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 203 32 203 33
, srcInfoPoints = []
}
"b")))))
Nothing
]
]))
]
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 205 1 206 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 205 1 205 8
, SrcSpan "tests/examples/Directory.hs" 205 9 205 15
, SrcSpan "tests/examples/Directory.hs" 205 29 205 38
, SrcSpan "tests/examples/Directory.hs" 206 13 206 15
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 205 16 205 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 205 22 205 28
, srcInfoPoints = []
}))
(Just "_wchmod")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 4 206 12
, srcInfoPoints = []
}
"c_wchmod")
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 16 206 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 206 25 206 27 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 16 206 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 16 206 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 16 206 24
, srcInfoPoints = []
}
"CWString")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 28 206 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 206 34 206 36 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 28 206 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 28 206 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 28 206 33
, srcInfoPoints = []
}
"CMode")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 37 206 44
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 37 206 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 37 206 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 37 206 39
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 40 206 44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 40 206 44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 206 40 206 44
, srcInfoPoints = []
}
"CInt"))))))
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 1 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 17 208 19 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 1 208 16
, srcInfoPoints = []
}
"copyPermissions"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 20 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 29 208 31 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 20 208 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 20 208 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 20 208 28
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 32 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 41 208 43 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 32 208 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 32 208 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 32 208 40
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 44 208 49
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 44 208 46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 44 208 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 44 208 46
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 47 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 47 208 48
, SrcSpan "tests/examples/Directory.hs" 208 48 208 49
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 47 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 47 208 48
, SrcSpan "tests/examples/Directory.hs" 208 48 208 49
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 208 47 208 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 208 47 208 48
, SrcSpan "tests/examples/Directory.hs" 208 48 208 49
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 1 215 65
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 1 215 65
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 1 209 16
, srcInfoPoints = []
}
"copyPermissions")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 17 209 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 17 209 23
, srcInfoPoints = []
}
"source")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 24 209 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 24 209 28
, srcInfoPoints = []
}
"dest")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 29 215 65
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 209 29 209 30 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 209 31 215 65
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 209 31 209 33
, SrcSpan "tests/examples/Directory.hs" 210 3 210 3
, SrcSpan "tests/examples/Directory.hs" 257 1 257 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 210 3 215 65
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 210 3 215 65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 210 3 210 26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 3 210 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 3 210 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 3 210 14
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 15 210 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 15 210 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 15 210 26
, srcInfoPoints = []
}
"sizeof_stat"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 210 27 210 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 27 210 28
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 27 210 28
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 210 29 215 65
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 210 29 210 30
, SrcSpan "tests/examples/Directory.hs" 210 38 210 40
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 31 210 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 31 210 37
, srcInfoPoints = []
}
"p_stat")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 210 41 215 65
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 210 41 210 43
, SrcSpan "tests/examples/Directory.hs" 211 3 211 3
, SrcSpan "tests/examples/Directory.hs" 211 3 211 3
, SrcSpan "tests/examples/Directory.hs" 257 1 257 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 211 3 215 65
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 211 3 215 65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 211 3 211 22
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 3 211 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 3 211 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
211
3
211
15
, srcInfoPoints = []
}
"withFilePath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 16 211 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 16 211 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
211
16
211
22
, srcInfoPoints = []
}
"source"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 211 23 211 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 23 211 24
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 23 211 24
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 211 25 215 65
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 211 25 211 26
, SrcSpan
"tests/examples/Directory.hs" 211 35 211 37
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 26 211 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
211
26
211
34
, srcInfoPoints = []
}
"p_source")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 211 38 215 65
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 211 38 211 40
, SrcSpan
"tests/examples/Directory.hs" 212 3 212 3
, SrcSpan
"tests/examples/Directory.hs" 212 3 212 3
, SrcSpan
"tests/examples/Directory.hs" 257 1 257 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 212 3 215 65
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
3
215
65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
3
212
20
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
3
212
15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
3
212
15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
3
212
15
, srcInfoPoints = []
}
"withFilePath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
16
212
20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
16
212
20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
16
212
20
, srcInfoPoints = []
}
"dest"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
21
212
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
21
212
22
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
21
212
22
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
23
215
65
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
212
23
212
24
, SrcSpan
"tests/examples/Directory.hs"
212
31
212
33
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
24
212
30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
24
212
30
, srcInfoPoints = []
}
"p_dest")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
212
34
215
65
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
212
34
212
36
, SrcSpan
"tests/examples/Directory.hs"
213
5
213
5
, SrcSpan
"tests/examples/Directory.hs"
214
5
214
5
, SrcSpan
"tests/examples/Directory.hs"
215
5
215
5
, SrcSpan
"tests/examples/Directory.hs"
257
1
257
0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
67
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
67
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
5
213
24
, srcInfoPoints = []
}
"throwErrnoIfMinus1_")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
25
213
42
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
25
213
42
, srcInfoPoints = []
}
"copyPermissions"
"copyPermissions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
43
213
44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
43
213
44
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
43
213
44
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
45
213
67
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
45
213
60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
45
213
51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
45
213
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
45
213
51
, srcInfoPoints =
[]
}
"c_stat")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
52
213
60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
52
213
60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
52
213
60
, srcInfoPoints =
[]
}
"p_source"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
61
213
67
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
61
213
67
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
213
61
213
67
, srcInfoPoints = []
}
"p_stat")))))
, Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
5
214
27
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
214
10
214
12
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
5
214
9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
5
214
9
, srcInfoPoints = []
}
"mode"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
13
214
27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
13
214
20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
13
214
20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
13
214
20
, srcInfoPoints = []
}
"st_mode")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
21
214
27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
21
214
27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
214
21
214
27
, srcInfoPoints = []
}
"p_stat"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
65
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
5
215
24
, srcInfoPoints = []
}
"throwErrnoIfMinus1_")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
25
215
42
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
25
215
42
, srcInfoPoints = []
}
"copyPermissions"
"copyPermissions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
43
215
44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
43
215
44
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
43
215
44
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
45
215
65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
45
215
60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
45
215
53
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
45
215
53
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
45
215
53
, srcInfoPoints =
[]
}
"c_wchmod")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
54
215
60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
54
215
60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
54
215
60
, srcInfoPoints =
[]
}
"p_dest"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
61
215
65
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
61
215
65
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
215
61
215
65
, srcInfoPoints = []
}
"mode")))))
])))
])))
])))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 1 257 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 257 17 257 19 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 1 257 16
, srcInfoPoints = []
}
"createDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 20 257 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 257 29 257 31 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 20 257 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 20 257 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 20 257 28
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 32 257 37
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 32 257 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 32 257 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 32 257 34
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 35 257 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 257 35 257 36
, SrcSpan "tests/examples/Directory.hs" 257 36 257 37
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 35 257 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 257 35 257 36
, SrcSpan "tests/examples/Directory.hs" 257 36 257 37
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 257 35 257 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 257 35 257 36
, SrcSpan "tests/examples/Directory.hs" 257 36 257 37
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 1 259 37
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 1 259 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 1 258 16
, srcInfoPoints = []
}
"createDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 17 258 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 17 258 21
, srcInfoPoints = []
}
"path")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 22 259 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 258 22 258 23 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 258 24 259 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 258 24 258 26
, SrcSpan "tests/examples/Directory.hs" 259 3 259 3
, SrcSpan "tests/examples/Directory.hs" 264 1 264 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 259 3 259 37
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 259 3 259 37
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 259 3 259 29
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 3 259 24
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 3 259 24
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 3 259 24
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 3 259 24
, srcInfoPoints = []
}
"createDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 25 259 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 25 259 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 25 259 29
, srcInfoPoints = []
}
"path"))))
(Con
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 259 30 259 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 30 259 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 259 30 259 37
, srcInfoPoints = []
}
"Nothing"))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 1 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 264 26 264 28 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 1 264 25
, srcInfoPoints = []
}
"createDirectoryIfMissing"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 29 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 265 18 265 20 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 29 264 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 29 264 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 264 29 264 33
, srcInfoPoints = []
}
"Bool")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 265 21 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 266 18 266 20 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 265 21 265 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 265 21 265 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 265 21 265 29
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 21 266 26
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 21 266 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 21 266 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 21 266 23
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 24 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 266 24 266 25
, SrcSpan "tests/examples/Directory.hs" 266 25 266 26
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 24 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 266 24 266 25
, SrcSpan "tests/examples/Directory.hs" 266 25 266 26
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 266 24 266 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 266 24 266 25
, SrcSpan "tests/examples/Directory.hs" 266 25 266 26
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 1 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 270 3 270 8 ]
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 1 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 270 3 270 8 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 1 267 25
, srcInfoPoints = []
}
"createDirectoryIfMissing")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 26 267 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 26 267 40
, srcInfoPoints = []
}
"create_parents")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 41 267 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 267 41 267 46
, srcInfoPoints = []
}
"path0")
]
(GuardedRhss
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 3 269 57
, srcInfoPoints = []
}
[ GuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 3 268 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 268 3 268 4
, SrcSpan "tests/examples/Directory.hs" 268 20 268 21
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 5 268 19
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 5 268 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 5 268 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 5 268 19
, srcInfoPoints = []
}
"create_parents")))
]
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 22 268 48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 22 268 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 22 268 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 22 268 32
, srcInfoPoints = []
}
"createDirs")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 33 268 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 268 33 268 34
, SrcSpan "tests/examples/Directory.hs" 268 47 268 48
]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 268 34 268 47
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 34 268 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 34 268 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 34 268 41
, srcInfoPoints = []
}
"parents")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 42 268 47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 42 268 47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 268 42 268 47
, srcInfoPoints = []
}
"path0"))))))
, GuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 3 269 57
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 269 3 269 4
, SrcSpan "tests/examples/Directory.hs" 269 20 269 21
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 5 269 14
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 5 269 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 5 269 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 5 269 14
, srcInfoPoints = []
}
"otherwise")))
]
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 22 269 57
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 22 269 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 22 269 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 22 269 32
, srcInfoPoints = []
}
"createDirs")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 33 269 57
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 269 33 269 34
, SrcSpan "tests/examples/Directory.hs" 269 56 269 57
]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 269 34 269 56
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 34 269 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 34 269 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 34 269 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 34 269 38
, srcInfoPoints = []
}
"take")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 39 269 40
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 39 269 40
, srcInfoPoints = []
}
1
"1")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 41 269 56
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 269 41 269 42
, SrcSpan "tests/examples/Directory.hs" 269 55 269 56
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 42 269 55
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 42 269 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 42 269 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 269 42 269 49
, srcInfoPoints = []
}
"parents")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 50 269 55
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 269 50 269 55
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 269 50 269 55
, srcInfoPoints = []
}
"path0"))))))))
])
(Just
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 5 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 271 5 271 5
, SrcSpan "tests/examples/Directory.hs" 273 5 273 5
, SrcSpan "tests/examples/Directory.hs" 274 5 274 5
, SrcSpan "tests/examples/Directory.hs" 275 5 275 5
, SrcSpan "tests/examples/Directory.hs" 280 5 280 5
, SrcSpan "tests/examples/Directory.hs" 281 5 281 5
, SrcSpan "tests/examples/Directory.hs" 343 1 343 0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 5 271 68
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 5 271 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 5 271 12
, srcInfoPoints = []
}
"parents"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 13 271 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 271 13 271 14 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 271 15 271 68
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 15 271 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 15 271 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 15 271 22
, srcInfoPoints = []
}
"reverse")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 23 271 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 23 271 24
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 23 271 24
, srcInfoPoints = []
}
".")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 25 271 68
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 25 271 37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 25 271 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 25 271 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 271 25 271 31
, srcInfoPoints = []
}
"scanl1")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 32 271 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 271 32 271 33
, SrcSpan "tests/examples/Directory.hs" 271 33 271 36
, SrcSpan "tests/examples/Directory.hs" 271 36 271 37
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 32 271 37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 271 32 271 33
, SrcSpan
"tests/examples/Directory.hs" 271 33 271 36
, SrcSpan
"tests/examples/Directory.hs" 271 36 271 37
]
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 271 33 271 36
, srcInfoPoints = []
}
""))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 38 271 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 38 271 39
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 38 271 39
, srcInfoPoints = []
}
".")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 40 271 68
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 40 271 56
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 40 271 56
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 271 40 271 56
, srcInfoPoints = []
}
"splitDirectories")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 57 271 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 57 271 58
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 271 57 271 58
, srcInfoPoints = []
}
".")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 59 271 68
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 271 59 271 68
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 271 59 271 68
, srcInfoPoints = []
}
"normalise")))))))
Nothing
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 273 5 278 28
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 273 5 273 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 273 5 273 15
, srcInfoPoints = []
}
"createDirs")
[ PList
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 16 273 18
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 273 16 273 17
, SrcSpan "tests/examples/Directory.hs" 273 17 273 18
]
}
[]
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 273 27 273 38
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 273 27 273 28 ]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 29 273 38
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 29 273 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 29 273 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 29 273 35
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 36 273 38
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 273 36 273 37
, SrcSpan "tests/examples/Directory.hs" 273 37 273 38
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 36 273 38
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 273 36 273 37
, SrcSpan "tests/examples/Directory.hs" 273 37 273 38
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 273 36 273 38
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 273 36 273 37
, SrcSpan
"tests/examples/Directory.hs" 273 37 273 38
]
})))))
Nothing
, Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 274 5 274 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 274 5 274 15
, srcInfoPoints = []
}
"createDirs")
[ PParen
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 16 274 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 274 16 274 17
, SrcSpan "tests/examples/Directory.hs" 274 23 274 24
]
}
(PInfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 17 274 23
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 17 274 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 17 274 20
, srcInfoPoints = []
}
"dir"))
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 20 274 21
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 20 274 21
, srcInfoPoints = []
}))
(PList
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 21 274 23
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 274 21 274 22
, SrcSpan "tests/examples/Directory.hs" 274 22 274 23
]
}
[]))
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 274 27 274 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 274 27 274 28 ]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 29 274 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 29 274 42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 29 274 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 29 274 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 274 29 274 38
, srcInfoPoints = []
}
"createDir")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 39 274 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 39 274 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 274 39 274 42
, srcInfoPoints = []
}
"dir"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 43 274 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 43 274 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 274 43 274 48
, srcInfoPoints = []
}
"throw")))))
Nothing
, Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 275 5 278 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 275 5 275 15
, srcInfoPoints = []
}
"createDirs")
[ PParen
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 16 275 26
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 275 16 275 17
, SrcSpan "tests/examples/Directory.hs" 275 25 275 26
]
}
(PInfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 17 275 25
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 17 275 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 17 275 20
, srcInfoPoints = []
}
"dir"))
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 20 275 21
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 20 275 21
, srcInfoPoints = []
}))
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 21 275 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 275 21 275 25
, srcInfoPoints = []
}
"dirs")))
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 275 27 278 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 275 27 275 28 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 7 278 28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 7 276 20
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 7 276 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 7 276 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 276 7 276 16
, srcInfoPoints = []
}
"createDir")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 17 276 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 17 276 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 276 17 276 20
, srcInfoPoints = []
}
"dir"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 21 276 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 21 276 22
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 21 276 22
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 23 278 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 276 23 276 24
, SrcSpan "tests/examples/Directory.hs" 276 26 276 28
]
}
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 24 276 25
, srcInfoPoints = []
}
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 276 29 278 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 276 29 276 31
, SrcSpan "tests/examples/Directory.hs" 277 9 277 9
, SrcSpan "tests/examples/Directory.hs" 278 9 278 9
, SrcSpan "tests/examples/Directory.hs" 280 5 280 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 277 9 277 24
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 277 9 277 24
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 277 9 277 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
277
9
277
19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
277
9
277
19
, srcInfoPoints = []
}
"createDirs")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
277
20
277
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
277
20
277
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
277
20
277
24
, srcInfoPoints = []
}
"dirs"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 278 9 278 28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 278 9 278 28
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 278 9 278 22
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
9
278
18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
9
278
18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
9
278
18
, srcInfoPoints = []
}
"createDir")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
19
278
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
19
278
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
19
278
22
, srcInfoPoints = []
}
"dir"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
23
278
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
23
278
28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
278
23
278
28
, srcInfoPoints = []
}
"throw"))))
]))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 280 5 280 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 15 280 17 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 280 5 280 14
, srcInfoPoints = []
}
"createDir"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 280 18 280 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 27 280 29 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 280 18 280 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 18 280 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 18 280 26
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 280 30 280 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 53 280 55 ]
}
(TyParen
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 30 280 52
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 30 280 31
, SrcSpan "tests/examples/Directory.hs" 280 51 280 52
]
}
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 31 280 51
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 43 280 45 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 31 280 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 31 280 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 280 31 280 42
, srcInfoPoints = []
}
"IOException")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 46 280 51
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 46 280 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 280 46 280 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 280 46 280 48
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 49 280 51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 280 49 280 50
, SrcSpan
"tests/examples/Directory.hs" 280 50 280 51
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 280 49 280 51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 280 49 280 50
, SrcSpan
"tests/examples/Directory.hs" 280 50 280 51
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 280 49 280 51
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
280
49
280
50
, SrcSpan
"tests/examples/Directory.hs"
280
50
280
51
]
}))))))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 56 280 61
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 56 280 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 56 280 58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 56 280 58
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 59 280 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 59 280 60
, SrcSpan "tests/examples/Directory.hs" 280 60 280 61
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 59 280 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 280 59 280 60
, SrcSpan "tests/examples/Directory.hs" 280 60 280 61
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 280 59 280 61
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 280 59 280 60
, SrcSpan
"tests/examples/Directory.hs" 280 60 280 61
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 281 5 300 46
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 281 5 300 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 281 5 281 14
, srcInfoPoints = []
}
"createDir")
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 281 15 281 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 281 15 281 18
, srcInfoPoints = []
}
"dir")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 281 19 281 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 281 19 281 34
, srcInfoPoints = []
}
"notExistHandler")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 281 35 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 281 35 281 36 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 281 37 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 281 37 281 39
, SrcSpan "tests/examples/Directory.hs" 282 7 282 7
, SrcSpan "tests/examples/Directory.hs" 283 7 283 7
, SrcSpan "tests/examples/Directory.hs" 343 1 343 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 282 7 282 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 282 9 282 11 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 282 7 282 8
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 282 7 282 8
, srcInfoPoints = []
}
"r"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 282 12 282 37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 12 282 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 12 282 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
12
282
15
, srcInfoPoints = []
}
"try")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 16 282 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 16 282 17
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
16
282
17
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 18 282 37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 18 282 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
18
282
33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
18
282
33
, srcInfoPoints = []
}
"createDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 282 34 282 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
34
282
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
282
34
282
37
, srcInfoPoints = []
}
"dir")))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 283 7 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 283 7 283 11
, SrcSpan "tests/examples/Directory.hs" 283 41 283 43
, SrcSpan "tests/examples/Directory.hs" 284 9 284 9
, SrcSpan "tests/examples/Directory.hs" 285 9 285 9
, SrcSpan "tests/examples/Directory.hs" 343 1 343 0
]
}
(Case
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 283 7 300 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 283 7 283 11
, SrcSpan "tests/examples/Directory.hs" 283 41 283 43
, SrcSpan "tests/examples/Directory.hs" 284 9 284 9
, SrcSpan "tests/examples/Directory.hs" 285 9 285 9
, SrcSpan "tests/examples/Directory.hs" 343 1 343 0
]
}
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 283 12 283 40
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 283 12 283 13
, SrcSpan
"tests/examples/Directory.hs" 283 39 283 40
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 283 13 283 39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 283 15 283 17
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
13
283
14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
13
283
14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
13
283
14
, srcInfoPoints = []
}
"r")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
18
283
39
, srcInfoPoints = []
}
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
18
283
36
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
18
283
24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
18
283
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
18
283
24
, srcInfoPoints = []
}
"Either")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
25
283
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
25
283
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
25
283
36
, srcInfoPoints = []
}
"IOException"))))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
37
283
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
283
37
283
38
, SrcSpan
"tests/examples/Directory.hs"
283
38
283
39
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
37
283
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
283
37
283
38
, SrcSpan
"tests/examples/Directory.hs"
283
38
283
39
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
283
37
283
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
283
37
283
38
, SrcSpan
"tests/examples/Directory.hs"
283
38
283
39
]
}))))))
[ Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 284 9 284 48
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 284 9 284 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
9
284
14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
9
284
14
, srcInfoPoints = []
}
"Right"))
[ PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
15
284
17
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
15
284
16
, SrcSpan
"tests/examples/Directory.hs"
284
16
284
17
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
15
284
17
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
15
284
16
, SrcSpan
"tests/examples/Directory.hs"
284
16
284
17
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
15
284
17
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
15
284
16
, SrcSpan
"tests/examples/Directory.hs"
284
16
284
17
]
}))
[]
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 284 36 284 48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
36
284
38
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
39
284
48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
39
284
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
39
284
45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
39
284
45
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
46
284
48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
46
284
47
, SrcSpan
"tests/examples/Directory.hs"
284
47
284
48
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
46
284
48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
46
284
47
, SrcSpan
"tests/examples/Directory.hs"
284
47
284
48
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
284
46
284
48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
284
46
284
47
, SrcSpan
"tests/examples/Directory.hs"
284
47
284
48
]
})))))
Nothing
, Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 285 9 300 46
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 285 9 285 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
285
9
285
13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
285
9
285
13
, srcInfoPoints = []
}
"Left"))
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
285
15
285
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
285
15
285
16
, srcInfoPoints = []
}
"e")
])
(GuardedRhss
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 286 11 300 46
, srcInfoPoints = []
}
[ GuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
11
286
56
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
286
11
286
12
, SrcSpan
"tests/examples/Directory.hs"
286
36
286
38
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
13
286
35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
13
286
35
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
13
286
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
13
286
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
13
286
32
, srcInfoPoints = []
}
"isDoesNotExistError")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
34
286
35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
34
286
35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
34
286
35
, srcInfoPoints = []
}
"e"))))
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
39
286
56
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
39
286
54
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
39
286
54
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
39
286
54
, srcInfoPoints = []
}
"notExistHandler")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
55
286
56
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
55
286
56
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
286
55
286
56
, srcInfoPoints = []
}
"e"))))
, GuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
11
299
68
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
294
11
294
12
, SrcSpan
"tests/examples/Directory.hs"
294
36
294
38
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
13
294
35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
13
294
35
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
13
294
33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
13
294
33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
13
294
33
, srcInfoPoints = []
}
"isAlreadyExistsError")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
34
294
35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
34
294
35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
34
294
35
, srcInfoPoints = []
}
"e"))))
]
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
39
299
68
, srcInfoPoints = []
}
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
39
299
16
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
294
39
294
40
, SrcSpan
"tests/examples/Directory.hs"
299
15
299
16
]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
294
40
298
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
294
40
294
42
, SrcSpan
"tests/examples/Directory.hs"
295
15
295
15
, SrcSpan
"tests/examples/Directory.hs"
299
15
299
15
, SrcSpan
"tests/examples/Directory.hs"
299
15
299
15
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
298
39
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
298
39
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
295
60
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
295
56
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
295
29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
295
29
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
15
295
29
, srcInfoPoints =
[]
}
"withFileStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
30
295
56
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
30
295
56
, srcInfoPoints =
[]
}
"createDirectoryIfMissing"
"createDirectoryIfMissing")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
57
295
60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
57
295
60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
57
295
60
, srcInfoPoints =
[]
}
"dir"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
61
295
62
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
61
295
62
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
61
295
62
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
63
298
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
295
63
295
64
, SrcSpan
"tests/examples/Directory.hs"
295
67
295
69
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
64
295
66
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
64
295
66
, srcInfoPoints = []
}
"st")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
295
70
298
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
295
70
295
72
, SrcSpan
"tests/examples/Directory.hs"
296
18
296
18
, SrcSpan
"tests/examples/Directory.hs"
297
18
297
18
, SrcSpan
"tests/examples/Directory.hs"
299
15
299
0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
18
296
41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
296
24
296
26
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
18
296
23
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
18
296
23
, srcInfoPoints =
[]
}
"isDir"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
27
296
41
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
27
296
38
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
27
296
38
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
27
296
38
, srcInfoPoints =
[]
}
"isDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
39
296
41
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
39
296
41
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
296
39
296
41
, srcInfoPoints =
[]
}
"st"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
18
298
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
297
18
297
20
, SrcSpan
"tests/examples/Directory.hs"
297
27
297
31
, SrcSpan
"tests/examples/Directory.hs"
298
27
298
31
]
}
(If
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
18
298
39
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
297
18
297
20
, SrcSpan
"tests/examples/Directory.hs"
297
27
297
31
, SrcSpan
"tests/examples/Directory.hs"
298
27
298
31
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
21
297
26
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
21
297
26
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
21
297
26
, srcInfoPoints =
[]
}
"isDir")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
32
297
41
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
32
297
38
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
32
297
38
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
32
297
38
, srcInfoPoints =
[]
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
39
297
41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
297
39
297
40
, SrcSpan
"tests/examples/Directory.hs"
297
40
297
41
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
39
297
41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
297
39
297
40
, SrcSpan
"tests/examples/Directory.hs"
297
40
297
41
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
297
39
297
41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
297
39
297
40
, SrcSpan
"tests/examples/Directory.hs"
297
40
297
41
]
}))))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
32
298
39
, srcInfoPoints =
[]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
32
298
37
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
32
298
37
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
32
298
37
, srcInfoPoints =
[]
}
"throw")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
38
298
39
, srcInfoPoints =
[]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
38
298
39
, srcInfoPoints =
[]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
298
38
298
39
, srcInfoPoints =
[]
}
"e")))))
])))
]))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
17
299
24
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
17
299
18
, SrcSpan
"tests/examples/Directory.hs"
299
18
299
23
, SrcSpan
"tests/examples/Directory.hs"
299
23
299
24
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
17
299
24
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
17
299
18
, SrcSpan
"tests/examples/Directory.hs"
299
18
299
23
, SrcSpan
"tests/examples/Directory.hs"
299
23
299
24
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
18
299
23
, srcInfoPoints = []
}
"catch")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
25
299
68
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
25
299
26
, SrcSpan
"tests/examples/Directory.hs"
299
67
299
68
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
26
299
67
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
44
299
46
]
}
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
26
299
43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
26
299
27
, SrcSpan
"tests/examples/Directory.hs"
299
42
299
43
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
27
299
42
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
27
299
28
, SrcSpan
"tests/examples/Directory.hs"
299
30
299
32
]
}
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
28
299
29
, srcInfoPoints = []
}
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
33
299
42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
33
299
39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
33
299
39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
33
299
39
, srcInfoPoints =
[]
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
40
299
42
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
40
299
41
, SrcSpan
"tests/examples/Directory.hs"
299
41
299
42
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
40
299
42
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
40
299
41
, SrcSpan
"tests/examples/Directory.hs"
299
41
299
42
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
40
299
42
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
40
299
41
, SrcSpan
"tests/examples/Directory.hs"
299
41
299
42
]
}))))))
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
47
299
67
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
59
299
61
]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
47
299
58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
47
299
58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
47
299
58
, srcInfoPoints = []
}
"IOException")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
62
299
67
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
62
299
64
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
62
299
64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
62
299
64
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
65
299
67
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
65
299
66
, SrcSpan
"tests/examples/Directory.hs"
299
66
299
67
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
65
299
67
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
65
299
66
, SrcSpan
"tests/examples/Directory.hs"
299
66
299
67
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
299
65
299
67
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
299
65
299
66
, SrcSpan
"tests/examples/Directory.hs"
299
66
299
67
]
}))))))))
, GuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
11
300
46
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
300
11
300
12
, SrcSpan
"tests/examples/Directory.hs"
300
36
300
38
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
13
300
22
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
13
300
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
13
300
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
13
300
22
, srcInfoPoints = []
}
"otherwise")))
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
39
300
46
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
39
300
44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
39
300
44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
39
300
44
, srcInfoPoints = []
}
"throw")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
45
300
46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
45
300
46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
300
45
300
46
, srcInfoPoints = []
}
"e"))))
])
Nothing
])
]))
Nothing
]
]))
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 1 343 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 343 17 343 19 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 1 343 16
, srcInfoPoints = []
}
"removeDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 20 343 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 343 29 343 31 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 20 343 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 20 343 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 20 343 28
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 32 343 37
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 32 343 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 32 343 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 32 343 34
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 35 343 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 343 35 343 36
, SrcSpan "tests/examples/Directory.hs" 343 36 343 37
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 35 343 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 343 35 343 36
, SrcSpan "tests/examples/Directory.hs" 343 36 343 37
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 343 35 343 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 343 35 343 36
, SrcSpan "tests/examples/Directory.hs" 343 36 343 37
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 1 345 29
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 1 345 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 1 344 16
, srcInfoPoints = []
}
"removeDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 17 344 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 17 344 21
, srcInfoPoints = []
}
"path")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 344 22 345 29
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 344 22 344 23 ]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 3 345 29
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 3 345 24
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 3 345 24
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 3 345 24
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 3 345 24
, srcInfoPoints = []
}
"removeDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 25 345 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 25 345 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 345 25 345 29
, srcInfoPoints = []
}
"path")))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 1 350 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 350 26 350 28 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 1 350 25
, srcInfoPoints = []
}
"removeDirectoryRecursive"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 29 350 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 350 38 350 40 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 29 350 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 29 350 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 29 350 37
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 41 350 46
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 41 350 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 41 350 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 41 350 43
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 44 350 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 350 44 350 45
, SrcSpan "tests/examples/Directory.hs" 350 45 350 46
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 44 350 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 350 44 350 45
, SrcSpan "tests/examples/Directory.hs" 350 45 350 46
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 350 44 350 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 350 44 350 45
, SrcSpan "tests/examples/Directory.hs" 350 45 350 46
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 1 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 355 3 355 8 ]
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 1 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 355 3 355 8 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 1 351 25
, srcInfoPoints = []
}
"removeDirectoryRecursive")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 26 351 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 26 351 34
, srcInfoPoints = []
}
"startLoc")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 35 354 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 351 35 351 36 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 351 37 354 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 351 37 351 39
, SrcSpan "tests/examples/Directory.hs" 352 3 352 3
, SrcSpan "tests/examples/Directory.hs" 353 3 353 3
, SrcSpan "tests/examples/Directory.hs" 354 3 354 3
, SrcSpan "tests/examples/Directory.hs" 355 3 355 3
, SrcSpan "tests/examples/Directory.hs" 355 3 355 3
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 3 352 40
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 352 8 352 10 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 3 352 7
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 3 352 7
, srcInfoPoints = []
}
"cont"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 11 352 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 11 352 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 352 11 352 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 352 11 352 31
, srcInfoPoints = []
}
"getDirectoryContents")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 352 32 352 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 352 32 352 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 352 32 352 40
, srcInfoPoints = []
}
"startLoc"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 353 3 353 69
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 353 3 353 69
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 353 3 353 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 3 353 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 3 353 12
, srcInfoPoints = []
}
"sequence_")))
(ListComp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 353 13 353 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 353 13 353 14
, SrcSpan "tests/examples/Directory.hs" 353 34 353 35
, SrcSpan "tests/examples/Directory.hs" 353 45 353 46
, SrcSpan "tests/examples/Directory.hs" 353 68 353 69
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 14 353 33
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 14 353 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 14 353 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 14 353 16
, srcInfoPoints = []
}
"rm")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 17 353 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 353 17 353 18
, SrcSpan "tests/examples/Directory.hs" 353 32 353 33
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 18 353 32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 18 353 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 18 353 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 18 353 26
, srcInfoPoints = []
}
"startLoc")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 27 353 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 27 353 30
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 27 353 30
, srcInfoPoints = []
}
"")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 31 353 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 31 353 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 31 353 32
, srcInfoPoints = []
}
"x"))))))
[ QualStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 36 353 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 353 38 353 40 ]
}
(Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 36 353 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 353 38 353 40 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 36 353 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 36 353 37
, srcInfoPoints = []
}
"x"))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 41 353 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 41 353 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 41 353 45
, srcInfoPoints = []
}
"cont"))))
, QualStmt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 47 353 68
, srcInfoPoints = []
}
(Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 47 353 68
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 47 353 68
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 47 353 55
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 47 353 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 47 353 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
353
47
353
48
, srcInfoPoints = []
}
"x")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 49 353 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 49 353 51
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
353
49
353
51
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 52 353 55
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 52 353 55
, srcInfoPoints = []
}
"."
".")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 56 353 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 56 353 58
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 56 353 58
, srcInfoPoints = []
}
"&&")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 353 59 353 68
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 59 353 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 59 353 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
353
59
353
60
, srcInfoPoints = []
}
"x")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 61 353 63
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 61 353 63
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
353
61
353
63
, srcInfoPoints = []
}
"/=")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 64 353 68
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 353 64 353 68
, srcInfoPoints = []
}
".."
"..")))))
]))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 354 3 354 27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 354 3 354 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 354 3 354 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 354 3 354 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 354 3 354 18
, srcInfoPoints = []
}
"removeDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 354 19 354 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 354 19 354 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 354 19 354 27
, srcInfoPoints = []
}
"startLoc"))))
]))
(Just
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 5 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 5 356 5
, SrcSpan "tests/examples/Directory.hs" 357 5 357 5
, SrcSpan "tests/examples/Directory.hs" 399 1 399 0
]
}
[ TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 5 356 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 8 356 10 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 5 356 7
, srcInfoPoints = []
}
"rm"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 11 356 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 20 356 22 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 11 356 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 11 356 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 11 356 19
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 356 23 356 28
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 23 356 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 23 356 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 23 356 25
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 26 356 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 26 356 27
, SrcSpan "tests/examples/Directory.hs" 356 27 356 28
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 26 356 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 26 356 27
, SrcSpan "tests/examples/Directory.hs" 356 27 356 28
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 356 26 356 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 356 26 356 27
, SrcSpan "tests/examples/Directory.hs" 356 27 356 28
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 357 5 363 37
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 357 5 363 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 357 5 357 7
, srcInfoPoints = []
}
"rm")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 357 8 357 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 357 8 357 9
, srcInfoPoints = []
}
"f")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 357 10 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 357 10 357 11 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 357 12 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 357 12 357 14
, SrcSpan "tests/examples/Directory.hs" 357 15 357 15
, SrcSpan "tests/examples/Directory.hs" 358 15 358 15
, SrcSpan "tests/examples/Directory.hs" 399 1 399 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 357 15 357 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 357 20 357 22 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 357 15 357 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 357 15 357 19
, srcInfoPoints = []
}
"temp"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 357 23 357 41
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 357 23 357 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 357 23 357 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
23
357
26
, srcInfoPoints = []
}
"try")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 357 27 357 41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 357 27 357 28
, SrcSpan
"tests/examples/Directory.hs" 357 40 357 41
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 357 28 357 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
28
357
38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
28
357
38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
28
357
38
, srcInfoPoints = []
}
"removeFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
39
357
40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
39
357
40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
357
39
357
40
, srcInfoPoints = []
}
"f"))))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 358 15 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 358 15 358 19
, SrcSpan "tests/examples/Directory.hs" 358 25 358 27
, SrcSpan "tests/examples/Directory.hs" 359 17 359 17
, SrcSpan "tests/examples/Directory.hs" 363 17 363 17
, SrcSpan "tests/examples/Directory.hs" 399 1 399 0
]
}
(Case
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 358 15 363 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 358 15 358 19
, SrcSpan "tests/examples/Directory.hs" 358 25 358 27
, SrcSpan "tests/examples/Directory.hs" 359 17 359 17
, SrcSpan "tests/examples/Directory.hs" 363 17 363 17
, SrcSpan "tests/examples/Directory.hs" 399 1 399 0
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 358 20 358 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 358 20 358 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
358
20
358
24
, srcInfoPoints = []
}
"temp")))
[ Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 359 17 362 57
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 359 17 359 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
17
359
21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
17
359
21
, srcInfoPoints = []
}
"Left"))
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
22
359
23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
22
359
23
, srcInfoPoints = []
}
"e")
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 359 25 362 57
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
359
25
359
27
]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
28
362
57
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
359
28
359
30
, SrcSpan
"tests/examples/Directory.hs"
359
31
359
31
, SrcSpan
"tests/examples/Directory.hs"
361
31
361
31
, SrcSpan
"tests/examples/Directory.hs"
362
31
362
31
, SrcSpan
"tests/examples/Directory.hs"
363
17
363
0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
31
359
60
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
359
37
359
39
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
31
359
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
31
359
36
, srcInfoPoints = []
}
"isDir"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
40
359
60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
40
359
58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
40
359
58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
40
359
58
, srcInfoPoints = []
}
"doesDirectoryExist")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
59
359
60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
59
359
60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
359
59
359
60
, srcInfoPoints = []
}
"f"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
72
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
72
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
31
361
37
, srcInfoPoints = []
}
"unless")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
38
361
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
38
361
43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
38
361
43
, srcInfoPoints = []
}
"isDir"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
44
361
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
44
361
45
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
44
361
45
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
46
361
72
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
46
361
51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
46
361
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
46
361
51
, srcInfoPoints = []
}
"throw")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
52
361
72
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
361
52
361
53
, SrcSpan
"tests/examples/Directory.hs"
361
71
361
72
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
53
361
71
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
361
55
361
57
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
53
361
54
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
53
361
54
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
53
361
54
, srcInfoPoints = []
}
"e")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
58
361
71
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
58
361
71
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
361
58
361
71
, srcInfoPoints = []
}
"SomeException")))))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
31
362
57
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
31
362
57
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
31
362
55
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
31
362
55
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
31
362
55
, srcInfoPoints = []
}
"removeDirectoryRecursive")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
56
362
57
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
56
362
57
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
362
56
362
57
, srcInfoPoints = []
}
"f"))))
]))
Nothing
, Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 363 17 363 37
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 363 17 363 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
17
363
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
17
363
22
, srcInfoPoints = []
}
"Right"))
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
23
363
24
, srcInfoPoints = []
}
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 363 25 363 37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
363
25
363
27
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
28
363
37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
28
363
34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
28
363
34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
28
363
34
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
35
363
37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
363
35
363
36
, SrcSpan
"tests/examples/Directory.hs"
363
36
363
37
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
35
363
37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
363
35
363
36
, SrcSpan
"tests/examples/Directory.hs"
363
36
363
37
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
363
35
363
37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
363
35
363
36
, SrcSpan
"tests/examples/Directory.hs"
363
36
363
37
]
})))))
Nothing
])
]))
Nothing
]
]))
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 1 399 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 399 12 399 14 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 1 399 11
, srcInfoPoints = []
}
"removeFile"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 15 399 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 399 24 399 26 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 15 399 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 15 399 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 15 399 23
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 27 399 32
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 27 399 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 27 399 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 27 399 29
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 30 399 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 399 30 399 31
, SrcSpan "tests/examples/Directory.hs" 399 31 399 32
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 30 399 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 399 30 399 31
, SrcSpan "tests/examples/Directory.hs" 399 31 399 32
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 399 30 399 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 399 30 399 31
, SrcSpan "tests/examples/Directory.hs" 399 31 399 32
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 1 401 24
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 1 401 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 1 400 11
, srcInfoPoints = []
}
"removeFile")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 12 400 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 12 400 16
, srcInfoPoints = []
}
"path")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 400 17 401 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 400 17 400 18 ]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 3 401 24
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 3 401 19
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 3 401 19
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 3 401 19
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 3 401 19
, srcInfoPoints = []
}
"deleteFile")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 20 401 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 20 401 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 401 20 401 24
, srcInfoPoints = []
}
"path")))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 1 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 17 452 19 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 1 452 16
, srcInfoPoints = []
}
"renameDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 20 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 29 452 31 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 20 452 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 20 452 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 20 452 28
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 32 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 41 452 43 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 32 452 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 32 452 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 32 452 40
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 44 452 49
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 44 452 46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 44 452 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 44 452 46
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 47 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 47 452 48
, SrcSpan "tests/examples/Directory.hs" 452 48 452 49
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 47 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 47 452 48
, SrcSpan "tests/examples/Directory.hs" 452 48 452 49
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 452 47 452 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 452 47 452 48
, SrcSpan "tests/examples/Directory.hs" 452 48 452 49
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 1 463 64
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 1 463 64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 1 453 16
, srcInfoPoints = []
}
"renameDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 17 453 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 17 453 22
, srcInfoPoints = []
}
"opath")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 23 453 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 23 453 28
, srcInfoPoints = []
}
"npath")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 29 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 453 29 453 30 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 453 31 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 453 31 453 33
, SrcSpan "tests/examples/Directory.hs" 456 4 456 4
, SrcSpan "tests/examples/Directory.hs" 509 1 509 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 456 4 463 64
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 456 4 463 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 456 4 456 42
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 4 456 36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 4 456 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 4 456 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 4 456 18
, srcInfoPoints = []
}
"withFileStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 19 456 36
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 19 456 36
, srcInfoPoints = []
}
"renameDirectory"
"renameDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 37 456 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 37 456 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 37 456 42
, srcInfoPoints = []
}
"opath"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 456 43 456 44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 43 456 44
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 43 456 44
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 456 45 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 456 45 456 46
, SrcSpan "tests/examples/Directory.hs" 456 49 456 51
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 46 456 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 46 456 48
, srcInfoPoints = []
}
"st")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 456 52 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 456 52 456 54
, SrcSpan "tests/examples/Directory.hs" 457 4 457 4
, SrcSpan "tests/examples/Directory.hs" 457 4 457 4
, SrcSpan "tests/examples/Directory.hs" 458 4 458 4
, SrcSpan "tests/examples/Directory.hs" 509 1 509 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 4 457 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 457 11 457 13 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 4 457 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 4 457 10
, srcInfoPoints = []
}
"is_dir"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 14 457 28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 14 457 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 457 14 457 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 457 14 457 25
, srcInfoPoints = []
}
"isDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 457 26 457 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 457 26 457 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 457 26 457 28
, srcInfoPoints = []
}
"st"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 458 4 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 458 4 458 6
, SrcSpan "tests/examples/Directory.hs" 459 5 459 9
, SrcSpan "tests/examples/Directory.hs" 462 5 462 9
]
}
(If
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 458 4 463 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 458 4 458 6
, SrcSpan "tests/examples/Directory.hs" 459 5 459 9
, SrcSpan "tests/examples/Directory.hs" 462 5 462 9
]
}
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 458 7 458 19
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 458 7 458 8
, SrcSpan
"tests/examples/Directory.hs" 458 18 458 19
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 458 8 458 18
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 458 8 458 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
458
8
458
11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
458
8
458
11
, srcInfoPoints = []
}
"not")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 458 12 458 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
458
12
458
18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
458
12
458
18
, srcInfoPoints = []
}
"is_dir")))))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 459 10 461 45
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 459 10 459 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 459 10 459 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
459
10
459
21
, srcInfoPoints = []
}
"ioException")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 459 22 461 45
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 459 22 459 23
, SrcSpan
"tests/examples/Directory.hs" 461 44 461 45
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 459 23 461 44
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
459
23
460
95
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
459
23
459
40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
459
23
459
40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
459
23
459
40
, srcInfoPoints = []
}
"ioeSetErrorString")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
27
460
95
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
460
27
460
28
, SrcSpan
"tests/examples/Directory.hs"
460
94
460
95
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
94
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
81
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
73
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
55
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
28
460
37
, srcInfoPoints = []
}
"mkIOError")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
38
460
55
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
38
460
55
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
38
460
55
, srcInfoPoints = []
}
"InappropriateType"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
56
460
73
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
56
460
73
, srcInfoPoints = []
}
"renameDirectory"
"renameDirectory")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
74
460
81
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
74
460
81
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
74
460
81
, srcInfoPoints = []
}
"Nothing"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
82
460
94
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
460
82
460
83
, SrcSpan
"tests/examples/Directory.hs"
460
93
460
94
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
83
460
93
, srcInfoPoints = []
}
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
83
460
87
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
83
460
87
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
83
460
87
, srcInfoPoints = []
}
"Just")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
88
460
93
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
88
460
93
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
460
88
460
93
, srcInfoPoints = []
}
"opath"))))))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
461
27
461
44
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
461
27
461
44
, srcInfoPoints = []
}
"not a directory"
"not a directory")))))
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 462 10 463 64
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 462 10 462 12
, SrcSpan "tests/examples/Directory.hs" 463 4 463 4
, SrcSpan "tests/examples/Directory.hs" 463 4 463 4
, SrcSpan "tests/examples/Directory.hs" 509 1 509 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 463 4 463 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 463 4 463 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
32
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
20
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
20
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
20
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
4
463
20
, srcInfoPoints = []
}
"moveFileEx")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
21
463
26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
21
463
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
21
463
26
, srcInfoPoints = []
}
"opath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
27
463
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
27
463
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
27
463
32
, srcInfoPoints = []
}
"npath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
33
463
64
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
33
463
64
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
33
463
64
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
463
33
463
64
, srcInfoPoints = []
}
"mOVEFILE_REPLACE_EXISTING"))))
]))
])))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 1 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 12 509 14 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 1 509 11
, srcInfoPoints = []
}
"renameFile"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 15 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 24 509 26 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 15 509 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 15 509 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 15 509 23
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 27 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 36 509 38 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 27 509 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 27 509 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 27 509 35
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 39 509 44
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 39 509 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 39 509 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 39 509 41
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 42 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 42 509 43
, SrcSpan "tests/examples/Directory.hs" 509 43 509 44
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 42 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 42 509 43
, SrcSpan "tests/examples/Directory.hs" 509 43 509 44
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 509 42 509 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 509 42 509 43
, SrcSpan "tests/examples/Directory.hs" 509 43 509 44
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 1 520 64
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 1 520 64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 1 510 11
, srcInfoPoints = []
}
"renameFile")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 12 510 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 12 510 17
, srcInfoPoints = []
}
"opath")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 18 510 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 18 510 23
, srcInfoPoints = []
}
"npath")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 24 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 510 24 510 25 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 510 26 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 510 26 510 28
, SrcSpan "tests/examples/Directory.hs" 513 4 513 4
, SrcSpan "tests/examples/Directory.hs" 528 1 528 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 513 4 520 64
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 513 4 520 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 513 4 513 46
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 4 513 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 4 513 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 4 513 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 4 513 27
, srcInfoPoints = []
}
"withFileOrSymlinkStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 28 513 40
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 28 513 40
, srcInfoPoints = []
}
"renameFile"
"renameFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 41 513 46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 41 513 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 41 513 46
, srcInfoPoints = []
}
"opath"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 513 47 513 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 47 513 48
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 47 513 48
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 513 49 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 513 49 513 50
, SrcSpan "tests/examples/Directory.hs" 513 53 513 55
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 50 513 52
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 50 513 52
, srcInfoPoints = []
}
"st")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 513 56 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 513 56 513 58
, SrcSpan "tests/examples/Directory.hs" 514 4 514 4
, SrcSpan "tests/examples/Directory.hs" 514 4 514 4
, SrcSpan "tests/examples/Directory.hs" 515 4 515 4
, SrcSpan "tests/examples/Directory.hs" 528 1 528 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 4 514 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 514 11 514 13 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 4 514 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 4 514 10
, srcInfoPoints = []
}
"is_dir"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 14 514 28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 14 514 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 514 14 514 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 514 14 514 25
, srcInfoPoints = []
}
"isDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 514 26 514 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 514 26 514 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 514 26 514 28
, srcInfoPoints = []
}
"st"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 515 4 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 515 4 515 6
, SrcSpan "tests/examples/Directory.hs" 516 5 516 9
, SrcSpan "tests/examples/Directory.hs" 519 5 519 9
]
}
(If
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 515 4 520 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 515 4 515 6
, SrcSpan "tests/examples/Directory.hs" 516 5 516 9
, SrcSpan "tests/examples/Directory.hs" 519 5 519 9
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 515 7 515 13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 515 7 515 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 515 7 515 13
, srcInfoPoints = []
}
"is_dir")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 516 10 518 32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 516 10 516 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 516 10 516 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
516
10
516
21
, srcInfoPoints = []
}
"ioException")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 516 22 518 32
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 516 22 516 23
, SrcSpan
"tests/examples/Directory.hs" 518 31 518 32
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 516 23 518 31
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
516
23
517
78
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
516
23
516
40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
516
23
516
40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
516
23
516
40
, srcInfoPoints = []
}
"ioeSetErrorString")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
15
517
78
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
517
15
517
16
, SrcSpan
"tests/examples/Directory.hs"
517
77
517
78
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
77
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
56
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
16
517
25
, srcInfoPoints = []
}
"mkIOError")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
26
517
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
26
517
43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
26
517
43
, srcInfoPoints = []
}
"InappropriateType"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
44
517
56
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
44
517
56
, srcInfoPoints = []
}
"renameFile"
"renameFile")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
57
517
64
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
57
517
64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
57
517
64
, srcInfoPoints = []
}
"Nothing"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
65
517
77
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
517
65
517
66
, SrcSpan
"tests/examples/Directory.hs"
517
76
517
77
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
66
517
76
, srcInfoPoints = []
}
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
66
517
70
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
66
517
70
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
66
517
70
, srcInfoPoints = []
}
"Just")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
71
517
76
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
71
517
76
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
517
71
517
76
, srcInfoPoints = []
}
"opath"))))))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
518
15
518
31
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
518
15
518
31
, srcInfoPoints = []
}
"is a directory"
"is a directory")))))
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 519 10 520 64
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 519 10 519 12
, SrcSpan "tests/examples/Directory.hs" 520 4 520 4
, SrcSpan "tests/examples/Directory.hs" 520 4 520 4
, SrcSpan "tests/examples/Directory.hs" 528 1 528 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 520 4 520 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 520 4 520 64
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
32
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
20
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
20
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
20
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
4
520
20
, srcInfoPoints = []
}
"moveFileEx")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
21
520
26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
21
520
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
21
520
26
, srcInfoPoints = []
}
"opath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
27
520
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
27
520
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
27
520
32
, srcInfoPoints = []
}
"npath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
33
520
64
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
33
520
64
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
33
520
64
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
520
33
520
64
, srcInfoPoints = []
}
"mOVEFILE_REPLACE_EXISTING"))))
]))
])))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 1 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 10 528 12 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 1 528 9
, srcInfoPoints = []
}
"copyFile"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 13 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 22 528 24 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 13 528 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 13 528 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 13 528 21
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 25 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 34 528 36 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 25 528 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 25 528 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 25 528 33
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 37 528 42
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 37 528 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 37 528 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 37 528 39
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 40 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 40 528 41
, SrcSpan "tests/examples/Directory.hs" 528 41 528 42
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 40 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 40 528 41
, SrcSpan "tests/examples/Directory.hs" 528 41 528 42
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 528 40 528 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 528 40 528 41
, SrcSpan "tests/examples/Directory.hs" 528 41 528 42
]
}))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 1 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 5 531 10 ]
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 1 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 5 531 10 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 1 529 9
, srcInfoPoints = []
}
"copyFile")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 10 529 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 10 529 19
, srcInfoPoints = []
}
"fromFPath")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 20 529 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 20 529 27
, srcInfoPoints = []
}
"toFPath")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 529 28 530 73
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 529 28 529 29 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 5 530 73
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 5 530 9
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 5 530 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 5 530 9
, srcInfoPoints = []
}
"copy")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 10 530 25
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 530 10 530 11
, SrcSpan "tests/examples/Directory.hs" 530 11 530 24
, SrcSpan "tests/examples/Directory.hs" 530 24 530 25
]
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 10 530 25
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 530 10 530 11
, SrcSpan "tests/examples/Directory.hs" 530 11 530 24
, SrcSpan "tests/examples/Directory.hs" 530 24 530 25
]
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 11 530 24
, srcInfoPoints = []
}
"Prelude")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 11 530 24
, srcInfoPoints = []
}
"catch")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 26 530 73
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 530 26 530 27
, SrcSpan "tests/examples/Directory.hs" 530 72 530 73
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 27 530 72
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 530 27 530 28
, SrcSpan "tests/examples/Directory.hs" 530 32 530 34
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 28 530 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 28 530 31
, srcInfoPoints = []
}
"exc")
]
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 530 35 530 72
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 35 530 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 35 530 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 35 530 40
, srcInfoPoints = []
}
"throw")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 41 530 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 41 530 42
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 41 530 42
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 43 530 72
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 43 530 61
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 43 530 57
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 43 530 57
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 530 43 530 57
, srcInfoPoints = []
}
"ioeSetLocation")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 58 530 61
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 58 530 61
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 530 58 530 61
, srcInfoPoints = []
}
"exc"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 62 530 72
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 530 62 530 72
, srcInfoPoints = []
}
"copyFile"
"copyFile"))))))))
(Just
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 11 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 11 531 11
, SrcSpan "tests/examples/Directory.hs" 537 11 537 11
, SrcSpan "tests/examples/Directory.hs" 538 11 538 11
, SrcSpan "tests/examples/Directory.hs" 541 11 541 11
, SrcSpan "tests/examples/Directory.hs" 543 11 543 11
, SrcSpan "tests/examples/Directory.hs" 549 11 549 11
, SrcSpan "tests/examples/Directory.hs" 550 11 550 11
, SrcSpan "tests/examples/Directory.hs" 551 11 551 11
, SrcSpan "tests/examples/Directory.hs" 560 1 560 0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 11 536 48
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 11 531 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 11 531 15
, srcInfoPoints = []
}
"copy"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 16 536 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 16 531 17 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 531 18 536 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 18 531 68
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 18 531 61
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 18 531 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 18 531 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 18 531 25
, srcInfoPoints = []
}
"bracket")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 26 531 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 26 531 27
, SrcSpan "tests/examples/Directory.hs" 531 60 531 61
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 27 531 60
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 27 531 51
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 27 531 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
531
27
531
41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
531
27
531
41
, srcInfoPoints = []
}
"openBinaryFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 42 531 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
531
42
531
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
531
42
531
51
, srcInfoPoints = []
}
"fromFPath"))))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 52 531 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 531 52 531 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
531
52
531
60
, srcInfoPoints = []
}
"ReadMode"))))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 62 531 68
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 62 531 68
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 62 531 68
, srcInfoPoints = []
}
"hClose"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 69 531 70
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 69 531 70
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 69 531 70
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 71 536 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 531 71 531 72
, SrcSpan "tests/examples/Directory.hs" 531 78 531 80
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 72 531 77
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 531 72 531 77
, srcInfoPoints = []
}
"hFrom")
]
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 18 536 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 18 532 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 18 532 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 18 532 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 18 532 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
532
18
532
32
, srcInfoPoints = []
}
"bracketOnError")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 33 532 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 33 532 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
532
33
532
40
, srcInfoPoints = []
}
"openTmp"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 41 532 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 41 532 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 41 532 49
, srcInfoPoints = []
}
"cleanTmp"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 50 532 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 50 532 51
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 50 532 51
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 52 536 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 532 52 532 53
, SrcSpan "tests/examples/Directory.hs" 532 70 532 72
]
}
[ PTuple
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 532 53 532 69
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 532 53 532 54
, SrcSpan
"tests/examples/Directory.hs" 532 62 532 63
, SrcSpan
"tests/examples/Directory.hs" 532 68 532 69
]
}
Boxed
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 54 532 62
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
532
54
532
62
, srcInfoPoints = []
}
"tmpFPath")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 532 64 532 68
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
532
64
532
68
, srcInfoPoints = []
}
"hTmp")
]
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 533 18 536 48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 533 18 533 20
, SrcSpan
"tests/examples/Directory.hs" 533 21 533 21
, SrcSpan
"tests/examples/Directory.hs" 534 21 534 21
, SrcSpan
"tests/examples/Directory.hs" 535 21 535 21
, SrcSpan
"tests/examples/Directory.hs" 536 21 536 21
, SrcSpan "tests/examples/Directory.hs" 537 11 537 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 533 21 533 69
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 533 21 533 69
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
21
533
43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
21
533
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
21
533
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
21
533
32
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
33
533
43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
33
533
43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
33
533
43
, srcInfoPoints = []
}
"bufferSize"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
44
533
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
44
533
45
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
44
533
45
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
46
533
69
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
46
533
64
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
46
533
58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
46
533
58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
46
533
58
, srcInfoPoints = []
}
"copyContents")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
59
533
64
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
59
533
64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
59
533
64
, srcInfoPoints = []
}
"hFrom"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
65
533
69
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
65
533
69
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
533
65
533
69
, srcInfoPoints = []
}
"hTmp")))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 534 21 534 32
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 534 21 534 32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
21
534
27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
21
534
27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
21
534
27
, srcInfoPoints = []
}
"hClose")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
28
534
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
28
534
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
534
28
534
32
, srcInfoPoints = []
}
"hTmp"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 535 21 535 76
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 535 21 535 76
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
21
535
39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
21
535
39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
21
535
39
, srcInfoPoints = []
}
"ignoreIOExceptions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
40
535
41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
40
535
41
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
40
535
41
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
42
535
76
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
42
535
67
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
42
535
57
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
42
535
57
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
42
535
57
, srcInfoPoints = []
}
"copyPermissions")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
58
535
67
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
58
535
67
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
58
535
67
, srcInfoPoints = []
}
"fromFPath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
68
535
76
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
68
535
76
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
535
68
535
76
, srcInfoPoints = []
}
"tmpFPath")))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 536 21 536 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 536 21 536 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
21
536
40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
21
536
31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
21
536
31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
21
536
31
, srcInfoPoints = []
}
"renameFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
32
536
40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
32
536
40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
32
536
40
, srcInfoPoints = []
}
"tmpFPath"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
41
536
48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
41
536
48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
536
41
536
48
, srcInfoPoints = []
}
"toFPath"))))
]))))))
Nothing
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 537 11 537 79
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 537 11 537 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 537 11 537 18
, srcInfoPoints = []
}
"openTmp"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 537 19 537 79
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 537 19 537 20 ]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 537 21 537 79
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 21 537 63
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 21 537 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 21 537 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 21 537 39
, srcInfoPoints = []
}
"openBinaryTempFile")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 40 537 63
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 537 40 537 41
, SrcSpan "tests/examples/Directory.hs" 537 62 537 63
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 41 537 62
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 41 537 54
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 537 41 537 54
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 537 41 537 54
, srcInfoPoints = []
}
"takeDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 55 537 62
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 537 55 537 62
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 537 55 537 62
, srcInfoPoints = []
}
"toFPath"))))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 64 537 79
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 537 64 537 79
, srcInfoPoints = []
}
".copyFile.tmp"
".copyFile.tmp"))))
Nothing
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 538 11 540 60
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 538 11 540 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 538 11 538 19
, srcInfoPoints = []
}
"cleanTmp")
[ PTuple
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 538 20 538 36
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 538 20 538 21
, SrcSpan "tests/examples/Directory.hs" 538 29 538 30
, SrcSpan "tests/examples/Directory.hs" 538 35 538 36
]
}
Boxed
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 538 21 538 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 538 21 538 29
, srcInfoPoints = []
}
"tmpFPath")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 538 31 538 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 538 31 538 35
, srcInfoPoints = []
}
"hTmp")
]
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 539 15 540 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 539 15 539 16 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 539 17 540 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 539 17 539 19
, SrcSpan "tests/examples/Directory.hs" 539 20 539 20
, SrcSpan "tests/examples/Directory.hs" 540 20 540 20
, SrcSpan "tests/examples/Directory.hs" 541 11 541 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 539 20 539 52
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 539 20 539 52
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 20 539 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 20 539 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
20
539
38
, srcInfoPoints = []
}
"ignoreIOExceptions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 39 539 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 39 539 40
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
39
539
40
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 41 539 52
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 41 539 47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
41
539
47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
41
539
47
, srcInfoPoints = []
}
"hClose")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 539 48 539 52
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
48
539
52
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
539
48
539
52
, srcInfoPoints = []
}
"hTmp")))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 540 20 540 60
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 540 20 540 60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 20 540 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 20 540 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
20
540
38
, srcInfoPoints = []
}
"ignoreIOExceptions")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 39 540 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 39 540 40
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
39
540
40
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 41 540 60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 41 540 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
41
540
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
41
540
51
, srcInfoPoints = []
}
"removeFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 540 52 540 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
52
540
60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
540
52
540
60
, srcInfoPoints = []
}
"tmpFPath")))))
]))
Nothing
]
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 541 11 541 28
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 541 11 541 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 541 11 541 21
, srcInfoPoints = []
}
"bufferSize"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 541 22 541 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 541 22 541 23 ]
}
(Lit
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 541 24 541 28
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 541 24 541 28
, srcInfoPoints = []
}
1024
"1024")))
Nothing
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 543 11 547 56
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 543 11 547 56
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 543 11 543 23
, srcInfoPoints = []
}
"copyContents")
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 24 543 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 24 543 29
, srcInfoPoints = []
}
"hFrom")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 30 543 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 30 543 33
, srcInfoPoints = []
}
"hTo")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 34 543 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 34 543 40
, srcInfoPoints = []
}
"buffer")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 543 41 547 56
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 543 41 543 42 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 543 43 547 56
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 543 43 543 45
, SrcSpan "tests/examples/Directory.hs" 544 19 544 19
, SrcSpan "tests/examples/Directory.hs" 545 19 545 19
, SrcSpan "tests/examples/Directory.hs" 549 11 549 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 544 19 544 59
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 544 25 544 27 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 544 19 544 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 19 544 24
, srcInfoPoints = []
}
"count"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 544 28 544 59
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 28 544 48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 28 544 41
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
28
544
35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
28
544
35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
28
544
35
, srcInfoPoints = []
}
"hGetBuf")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
36
544
41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
36
544
41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
36
544
41
, srcInfoPoints = []
}
"hFrom"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 42 544 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
42
544
48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
42
544
48
, srcInfoPoints = []
}
"buffer"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 49 544 59
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 544 49 544 59
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
544
49
544
59
, srcInfoPoints = []
}
"bufferSize"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 545 19 547 56
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 545 19 547 56
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 19 545 35
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 19 545 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
19
545
23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
19
545
23
, srcInfoPoints = []
}
"when")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 24 545 35
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 545 24 545 25
, SrcSpan
"tests/examples/Directory.hs" 545 34 545 35
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
25
545
34
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
25
545
30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
25
545
30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
25
545
30
, srcInfoPoints = []
}
"count")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
31
545
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
31
545
32
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
31
545
32
, srcInfoPoints = []
}
">")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
33
545
34
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
33
545
34
, srcInfoPoints = []
}
0
"0")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 36 545 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 36 545 37
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
545
36
545
37
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 545 38 547 56
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 545 38 545 40
, SrcSpan
"tests/examples/Directory.hs" 546 27 546 27
, SrcSpan
"tests/examples/Directory.hs" 547 27 547 27
, SrcSpan
"tests/examples/Directory.hs" 549 11 549 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 546 27 546 51
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
51
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
45
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
38
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
27
546
34
, srcInfoPoints = []
}
"hPutBuf")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
35
546
38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
35
546
38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
35
546
38
, srcInfoPoints = []
}
"hTo"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
39
546
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
39
546
45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
39
546
45
, srcInfoPoints = []
}
"buffer"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
46
546
51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
46
546
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
546
46
546
51
, srcInfoPoints = []
}
"count"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 547 27 547 56
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
56
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
45
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
27
547
39
, srcInfoPoints = []
}
"copyContents")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
40
547
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
40
547
45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
40
547
45
, srcInfoPoints = []
}
"hFrom"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
46
547
49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
46
547
49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
46
547
49
, srcInfoPoints = []
}
"hTo"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
50
547
56
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
50
547
56
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
547
50
547
56
, srcInfoPoints = []
}
"buffer"))))
]))
]))
Nothing
]
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 549 11 549 64
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 549 11 549 64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 549 11 549 29
, srcInfoPoints = []
}
"ignoreIOExceptions")
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 30 549 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 30 549 32
, srcInfoPoints = []
}
"io")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 549 33 549 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 549 33 549 34 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 35 549 64
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 35 549 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 35 549 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 35 549 37
, srcInfoPoints = []
}
"io")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 38 549 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 549 38 549 39
, SrcSpan "tests/examples/Directory.hs" 549 39 549 44
, SrcSpan "tests/examples/Directory.hs" 549 44 549 45
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 38 549 45
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 549 38 549 39
, SrcSpan "tests/examples/Directory.hs" 549 39 549 44
, SrcSpan "tests/examples/Directory.hs" 549 44 549 45
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 39 549 44
, srcInfoPoints = []
}
"catch")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 46 549 64
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 46 549 64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 549 46 549 64
, srcInfoPoints = []
}
"ioExceptionIgnorer")))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 550 11 550 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 550 30 550 32 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 550 11 550 29
, srcInfoPoints = []
}
"ioExceptionIgnorer"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 550 33 550 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 550 45 550 47 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 550 33 550 44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 33 550 44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 33 550 44
, srcInfoPoints = []
}
"IOException")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 550 48 550 53
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 48 550 50
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 48 550 50
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 48 550 50
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 51 550 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 550 51 550 52
, SrcSpan "tests/examples/Directory.hs" 550 52 550 53
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 51 550 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 550 51 550 52
, SrcSpan "tests/examples/Directory.hs" 550 52 550 53
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 550 51 550 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 550 51 550 52
, SrcSpan "tests/examples/Directory.hs" 550 52 550 53
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 551 11 551 43
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 551 11 551 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 551 11 551 29
, srcInfoPoints = []
}
"ioExceptionIgnorer")
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 30 551 31
, srcInfoPoints = []
}
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 551 32 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 551 32 551 33 ]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 34 551 43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 34 551 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 34 551 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 34 551 40
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 41 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 551 41 551 42
, SrcSpan "tests/examples/Directory.hs" 551 42 551 43
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 41 551 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 551 41 551 42
, SrcSpan "tests/examples/Directory.hs" 551 42 551 43
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 551 41 551 43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 551 41 551 42
, SrcSpan
"tests/examples/Directory.hs" 551 42 551 43
]
})))))
Nothing
]
]))
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 1 560 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 560 18 560 20 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 1 560 17
, srcInfoPoints = []
}
"canonicalizePath"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 21 560 44
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 560 30 560 32 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 21 560 29
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 21 560 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 21 560 29
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 33 560 44
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 33 560 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 33 560 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 33 560 35
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 36 560 44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 36 560 44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 560 36 560 44
, srcInfoPoints = []
}
"FilePath")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 1 563 31
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 1 563 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 1 561 17
, srcInfoPoints = []
}
"canonicalizePath")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 18 561 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 18 561 23
, srcInfoPoints = []
}
"fpath")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 561 24 563 31
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 561 24 561 25 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 5 563 31
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 562 5 562 7
, SrcSpan "tests/examples/Directory.hs" 562 8 562 8
, SrcSpan "tests/examples/Directory.hs" 563 8 563 8
, SrcSpan "tests/examples/Directory.hs" 568 1 568 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 8 562 43
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 562 13 562 15 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 8 562 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 8 562 12
, srcInfoPoints = []
}
"path"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 16 562 43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 16 562 37
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 562 16 562 37
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 562 16 562 37
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 562 16 562 37
, srcInfoPoints = []
}
"getFullPathName")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 562 38 562 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 562 38 562 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 562 38 562 43
, srcInfoPoints = []
}
"fpath"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 563 8 563 31
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 563 8 563 31
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 563 8 563 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 8 563 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 8 563 14
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 563 15 563 31
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 563 15 563 16
, SrcSpan "tests/examples/Directory.hs" 563 30 563 31
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 16 563 30
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 16 563 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 16 563 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 16 563 25
, srcInfoPoints = []
}
"normalise")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 26 563 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 26 563 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 563 26 563 30
, srcInfoPoints = []
}
"path"))))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 1 568 58
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 568 32 568 34 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 1 568 31
, srcInfoPoints = []
}
"makeRelativeToCurrentDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 35 568 58
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 568 44 568 46 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 35 568 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 35 568 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 35 568 43
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 47 568 58
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 47 568 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 47 568 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 47 568 49
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 50 568 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 50 568 58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 568 50 568 58
, srcInfoPoints = []
}
"FilePath")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 1 571 32
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 1 571 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 1 569 31
, srcInfoPoints = []
}
"makeRelativeToCurrentDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 32 569 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 32 569 33
, srcInfoPoints = []
}
"x")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 34 571 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 569 34 569 35 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 569 36 571 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 569 36 569 38
, SrcSpan "tests/examples/Directory.hs" 570 5 570 5
, SrcSpan "tests/examples/Directory.hs" 571 5 571 5
, SrcSpan "tests/examples/Directory.hs" 591 1 591 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 570 5 570 31
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 570 9 570 11 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 570 5 570 8
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 570 5 570 8
, srcInfoPoints = []
}
"cur"))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 570 12 570 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 570 12 570 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 570 12 570 31
, srcInfoPoints = []
}
"getCurrentDirectory")))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 571 5 571 32
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 571 5 571 32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 571 5 571 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 5 571 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 5 571 11
, srcInfoPoints = []
}
"return")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 571 12 571 13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 12 571 13
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 12 571 13
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 571 14 571 32
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 14 571 30
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 14 571 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 14 571 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 14 571 26
, srcInfoPoints = []
}
"makeRelative")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 27 571 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 27 571 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 27 571 30
, srcInfoPoints = []
}
"cur"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 31 571 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 31 571 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 571 31 571 32
, srcInfoPoints = []
}
"x")))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 1 591 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 591 16 591 18 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 1 591 15
, srcInfoPoints = []
}
"findExecutable"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 19 591 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 591 26 591 28 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 19 591 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 19 591 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 19 591 25
, srcInfoPoints = []
}
"String")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 29 591 48
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 29 591 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 29 591 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 29 591 31
, srcInfoPoints = []
}
"IO")))
(TyParen
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 32 591 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 591 32 591 33
, SrcSpan "tests/examples/Directory.hs" 591 47 591 48
]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 33 591 47
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 33 591 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 33 591 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 33 591 38
, srcInfoPoints = []
}
"Maybe")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 39 591 47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 39 591 47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 591 39 591 47
, srcInfoPoints = []
}
"FilePath")))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 1 593 53
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 1 593 53
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 1 592 15
, srcInfoPoints = []
}
"findExecutable")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 16 592 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 16 592 22
, srcInfoPoints = []
}
"binary")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 592 23 593 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 592 23 592 24 ]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 3 593 53
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 3 593 34
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 3 593 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 3 593 19
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 3 593 19
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 3 593 19
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 3 593 19
, srcInfoPoints = []
}
"searchPath")))
(Con
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 20 593 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 20 593 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 20 593 27
, srcInfoPoints = []
}
"Nothing"))))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 28 593 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 28 593 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 28 593 34
, srcInfoPoints = []
}
"binary"))))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 35 593 53
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 593 35 593 36
, SrcSpan "tests/examples/Directory.hs" 593 52 593 53
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 36 593 52
, srcInfoPoints = []
}
(Lit
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 36 593 39
, srcInfoPoints = []
}
(Char
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 36 593 39
, srcInfoPoints = []
}
'.'
"."))
(QConOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 39 593 40
, srcInfoPoints = []
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 39 593 40
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 39 593 40
, srcInfoPoints = []
})))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 593 40 593 52
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 40 593 52
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 593 40 593 52
, srcInfoPoints = []
}
"exeExtension")))))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 1 627 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 627 22 627 24 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 1 627 21
, srcInfoPoints = []
}
"getDirectoryContents"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 25 627 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 627 34 627 36 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 25 627 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 25 627 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 25 627 33
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 37 627 50
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 37 627 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 37 627 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 37 627 39
, srcInfoPoints = []
}
"IO")))
(TyList
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 40 627 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 627 40 627 41
, SrcSpan "tests/examples/Directory.hs" 627 49 627 50
]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 41 627 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 41 627 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 627 41 627 49
, srcInfoPoints = []
}
"FilePath"))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 1 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 635 3 635 8 ]
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 1 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 635 3 635 8 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 1 628 21
, srcInfoPoints = []
}
"getDirectoryContents")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 22 628 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 22 628 26
, srcInfoPoints = []
}
"path")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 628 27 634 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 628 27 628 28 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 3 634 35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 3 630 60
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 3 629 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 3 629 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 3 629 16
, srcInfoPoints = []
}
"modifyIOError")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 17 630 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 629 17 629 18
, SrcSpan "tests/examples/Directory.hs" 630 59 630 60
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 629 18 630 59
, srcInfoPoints = []
}
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 18 629 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 629 18 629 19
, SrcSpan "tests/examples/Directory.hs" 629 40 629 41
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 19 629 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 629 19 629 20
, SrcSpan "tests/examples/Directory.hs" 629 20 629 34
, SrcSpan "tests/examples/Directory.hs" 629 34 629 35
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 19 629 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 629 19 629 20
, SrcSpan "tests/examples/Directory.hs" 629 20 629 34
, SrcSpan "tests/examples/Directory.hs" 629 34 629 35
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 20 629 34
, srcInfoPoints = []
}
"ioeSetFileName")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 36 629 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 36 629 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 36 629 40
, srcInfoPoints = []
}
"path"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 42 629 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 42 629 43
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 629 42 629 43
, srcInfoPoints = []
}
".")))
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 18 630 59
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 630 18 630 19
, SrcSpan "tests/examples/Directory.hs" 630 58 630 59
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 19 630 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 630 19 630 20
, SrcSpan "tests/examples/Directory.hs" 630 20 630 34
, SrcSpan "tests/examples/Directory.hs" 630 34 630 35
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 19 630 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 630 19 630 20
, SrcSpan "tests/examples/Directory.hs" 630 20 630 34
, SrcSpan "tests/examples/Directory.hs" 630 34 630 35
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 20 630 34
, srcInfoPoints = []
}
"ioeSetLocation")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 36 630 58
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 630 36 630 58
, srcInfoPoints = []
}
"getDirectoryContents"
"getDirectoryContents"))))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 630 61 630 62
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 630 61 630 62
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 630 61 630 62
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 630 63 634 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 630 63 630 65
, SrcSpan "tests/examples/Directory.hs" 631 3 631 3
, SrcSpan "tests/examples/Directory.hs" 635 3 635 3
, SrcSpan "tests/examples/Directory.hs" 635 3 635 3
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 631 3 634 35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 631 3 634 35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 631 3 633 35
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 631 3 632 42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 631 3 631 10
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 631 3 631 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 631 3 631 10
, srcInfoPoints = []
}
"bracket")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 632 6 632 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 632 6 632 7
, SrcSpan "tests/examples/Directory.hs" 632 41 632 42
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 632 7 632 41
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 632 7 632 26
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 632 7 632 26
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
7
632
26
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
7
632
26
, srcInfoPoints = []
}
"findFirstFile")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 632 27 632 41
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 632 27 632 28
, SrcSpan
"tests/examples/Directory.hs" 632 40 632 41
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 632 28 632 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
28
632
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
28
632
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
28
632
32
, srcInfoPoints = []
}
"path")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
33
632
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
33
632
36
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
33
632
36
, srcInfoPoints = []
}
"")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
37
632
40
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
632
37
632
40
, srcInfoPoints = []
}
"*"
"*")))))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 633 6 633 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 633 6 633 7
, SrcSpan "tests/examples/Directory.hs" 633 34 633 35
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 633 7 633 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 633 7 633 8
, SrcSpan "tests/examples/Directory.hs" 633 14 633 16
]
}
[ PTuple
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 633 8 633 13
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 633 8 633 9
, SrcSpan
"tests/examples/Directory.hs" 633 10 633 11
, SrcSpan
"tests/examples/Directory.hs" 633 12 633 13
]
}
Boxed
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 9 633 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 9 633 10
, srcInfoPoints = []
}
"h")
, PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 11 633 12
, srcInfoPoints = []
}
]
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 633 17 633 34
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 17 633 32
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 17 633 32
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
633
17
633
32
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
633
17
633
32
, srcInfoPoints = []
}
"findClose")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 33 633 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 633 33 633 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
633
33
633
34
, srcInfoPoints = []
}
"h")))))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 6 634 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 634 6 634 7
, SrcSpan "tests/examples/Directory.hs" 634 34 634 35
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 7 634 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 634 7 634 8
, SrcSpan "tests/examples/Directory.hs" 634 17 634 19
]
}
[ PTuple
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 8 634 16
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 634 8 634 9
, SrcSpan "tests/examples/Directory.hs" 634 10 634 11
, SrcSpan "tests/examples/Directory.hs" 634 15 634 16
]
}
Boxed
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 9 634 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 9 634 10
, srcInfoPoints = []
}
"h")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 11 634 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 11 634 15
, srcInfoPoints = []
}
"fdat")
]
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 20 634 34
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 20 634 31
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 20 634 26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 20 634 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
634
20
634
24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
634
20
634
24
, srcInfoPoints = []
}
"loop")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 25 634 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
634
25
634
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
634
25
634
26
, srcInfoPoints = []
}
"h"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 27 634 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 634 27 634 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
634
27
634
31
, srcInfoPoints = []
}
"fdat"))))
(List
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 634 32 634 34
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 634 32 634 33
, SrcSpan
"tests/examples/Directory.hs" 634 33 634 34
]
}
[])))))
])))
(Just
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 5 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 5 638 5
, SrcSpan "tests/examples/Directory.hs" 639 5 639 5
, SrcSpan "tests/examples/Directory.hs" 672 1 672 0
]
}
[ TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 5 638 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 10 638 12 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 5 638 9
, srcInfoPoints = []
}
"loop"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 13 638 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 26 638 28 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 13 638 25
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 13 638 25
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 13 638 25
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 13 638 25
, srcInfoPoints = []
}
"HANDLE")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 638 29 638 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 44 638 46 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 29 638 43
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 29 638 43
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 29 638 43
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 29 638 43
, srcInfoPoints = []
}
"FindData")))
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 47 638 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 58 638 60 ]
}
(TyList
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 47 638 57
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 47 638 48
, SrcSpan "tests/examples/Directory.hs" 638 56 638 57
]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 48 638 56
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 48 638 56
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 638 48 638 56
, srcInfoPoints = []
}
"FilePath"))))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 61 638 74
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 61 638 63
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 61 638 63
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 638 61 638 63
, srcInfoPoints = []
}
"IO")))
(TyList
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 64 638 74
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 638 64 638 65
, SrcSpan "tests/examples/Directory.hs" 638 73 638 74
]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 638 65 638 73
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 638 65 638 73
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 638 65 638 73
, srcInfoPoints = []
}
"FilePath"))))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 639 5 644 37
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 639 5 644 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 639 5 639 9
, srcInfoPoints = []
}
"loop")
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 10 639 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 10 639 11
, srcInfoPoints = []
}
"h")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 12 639 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 12 639 16
, srcInfoPoints = []
}
"fdat")
, PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 17 639 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 17 639 20
, srcInfoPoints = []
}
"acc")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 639 21 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 639 21 639 22 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 639 23 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 639 23 639 25
, SrcSpan "tests/examples/Directory.hs" 640 8 640 8
, SrcSpan "tests/examples/Directory.hs" 641 8 641 8
, SrcSpan "tests/examples/Directory.hs" 642 8 642 8
, SrcSpan "tests/examples/Directory.hs" 672 1 672 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 640 8 640 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 640 17 640 19 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 640 8 640 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 640 8 640 16
, srcInfoPoints = []
}
"filename"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 640 20 640 50
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 640 20 640 45
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 640 20 640 45
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
640
20
640
45
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
640
20
640
45
, srcInfoPoints = []
}
"getFindDataFileName")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 640 46 640 50
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 640 46 640 50
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
640
46
640
50
, srcInfoPoints = []
}
"fdat"))))
, Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 641 8 641 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 641 13 641 15 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 641 8 641 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 641 8 641 12
, srcInfoPoints = []
}
"more"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 641 16 641 41
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 641 16 641 36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 641 16 641 34
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
16
641
34
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
16
641
34
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
16
641
34
, srcInfoPoints = []
}
"findNextFile")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 641 35 641 36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
35
641
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
35
641
36
, srcInfoPoints = []
}
"h"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 641 37 641 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 641 37 641 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
641
37
641
41
, srcInfoPoints = []
}
"fdat"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 642 8 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 642 8 642 10
, SrcSpan "tests/examples/Directory.hs" 643 11 643 15
, SrcSpan "tests/examples/Directory.hs" 644 11 644 15
]
}
(If
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 642 8 644 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 642 8 642 10
, SrcSpan "tests/examples/Directory.hs" 643 11 643 15
, SrcSpan "tests/examples/Directory.hs" 644 11 644 15
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 642 11 642 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 642 11 642 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
642
11
642
15
, srcInfoPoints = []
}
"more")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 643 16 643 42
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 643 16 643 27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
16
643
22
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
16
643
20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
16
643
20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
16
643
20
, srcInfoPoints = []
}
"loop")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
21
643
22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
21
643
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
21
643
22
, srcInfoPoints = []
}
"h"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
23
643
27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
23
643
27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
23
643
27
, srcInfoPoints = []
}
"fdat"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 643 28 643 42
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 643 28 643 29
, SrcSpan
"tests/examples/Directory.hs" 643 41 643 42
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
29
643
41
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
29
643
37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
29
643
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
29
643
37
, srcInfoPoints = []
}
"filename")))
(QConOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
37
643
38
, srcInfoPoints = []
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
37
643
38
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
37
643
38
, srcInfoPoints = []
})))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
38
643
41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
38
643
41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
643
38
643
41
, srcInfoPoints = []
}
"acc"))))))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 644 16 644 37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 644 16 644 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
16
644
22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
16
644
22
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 644 23 644 37
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 644 23 644 24
, SrcSpan
"tests/examples/Directory.hs" 644 36 644 37
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
24
644
36
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
24
644
32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
24
644
32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
24
644
32
, srcInfoPoints = []
}
"filename")))
(QConOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
32
644
33
, srcInfoPoints = []
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
32
644
33
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
32
644
33
, srcInfoPoints = []
})))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
33
644
36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
33
644
36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
644
33
644
36
, srcInfoPoints = []
}
"acc")))))))
]))
Nothing
]
]))
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 1 672 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 672 21 672 23 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 1 672 20
, srcInfoPoints = []
}
"getCurrentDirectory"
]
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 24 672 35
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 24 672 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 24 672 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 24 672 26
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 27 672 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 27 672 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 672 27 672 35
, srcInfoPoints = []
}
"FilePath"))))
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 673 1 674 28
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 673 1 673 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 673 1 673 20
, srcInfoPoints = []
}
"getCurrentDirectory"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 673 21 674 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 673 21 673 22 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 673 23 674 28
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 673 23 673 25
, SrcSpan "tests/examples/Directory.hs" 674 3 674 3
, SrcSpan "tests/examples/Directory.hs" 708 1 708 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 674 3 674 28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 674 3 674 28
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 674 3 674 28
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 674 3 674 28
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 674 3 674 28
, srcInfoPoints = []
}
"getCurrentDirectory")))
]))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 1 708 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 708 21 708 23 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 1 708 20
, srcInfoPoints = []
}
"setCurrentDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 24 708 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 708 33 708 35 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 24 708 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 24 708 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 24 708 32
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 36 708 41
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 36 708 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 36 708 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 36 708 38
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 39 708 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 708 39 708 40
, SrcSpan "tests/examples/Directory.hs" 708 40 708 41
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 39 708 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 708 39 708 40
, SrcSpan "tests/examples/Directory.hs" 708 40 708 41
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 708 39 708 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 708 39 708 40
, SrcSpan "tests/examples/Directory.hs" 708 40 708 41
]
})))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 1 710 33
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 1 710 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 1 709 20
, srcInfoPoints = []
}
"setCurrentDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 21 709 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 21 709 25
, srcInfoPoints = []
}
"path")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 709 26 710 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 709 26 709 27 ]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 3 710 33
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 3 710 28
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 3 710 28
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 3 710 28
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 3 710 28
, srcInfoPoints = []
}
"setCurrentDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 29 710 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 29 710 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 710 29 710 33
, srcInfoPoints = []
}
"path")))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 1 716 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 716 20 716 22 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 1 716 19
, srcInfoPoints = []
}
"doesDirectoryExist"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 23 716 42
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 716 32 716 34 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 23 716 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 23 716 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 23 716 31
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 35 716 42
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 35 716 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 35 716 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 35 716 37
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 38 716 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 38 716 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 716 38 716 42
, srcInfoPoints = []
}
"Bool")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 1 719 61
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 1 719 61
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 1 717 19
, srcInfoPoints = []
}
"doesDirectoryExist")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 20 717 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 20 717 24
, srcInfoPoints = []
}
"name")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 717 25 719 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 717 25 717 26 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 4 719 61
, srcInfoPoints = []
}
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 4 718 70
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 718 4 718 5
, SrcSpan "tests/examples/Directory.hs" 718 69 718 70
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 5 718 69
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 5 718 45
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 5 718 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 5 718 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 5 718 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 5 718 19
, srcInfoPoints = []
}
"withFileStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 20 718 40
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 20 718 40
, srcInfoPoints = []
}
"doesDirectoryExist"
"doesDirectoryExist")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 41 718 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 41 718 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 41 718 45
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 46 718 47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 46 718 47
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 46 718 47
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 718 48 718 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 718 48 718 49
, SrcSpan "tests/examples/Directory.hs" 718 52 718 54
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 49 718 51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 49 718 51
, srcInfoPoints = []
}
"st")
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 55 718 69
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 55 718 66
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 55 718 66
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 55 718 66
, srcInfoPoints = []
}
"isDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 67 718 69
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 67 718 69
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 718 67 718 69
, srcInfoPoints = []
}
"st")))))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 4 719 11
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 4 719 5
, SrcSpan "tests/examples/Directory.hs" 719 5 719 10
, SrcSpan "tests/examples/Directory.hs" 719 10 719 11
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 4 719 11
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 4 719 5
, SrcSpan "tests/examples/Directory.hs" 719 5 719 10
, SrcSpan "tests/examples/Directory.hs" 719 10 719 11
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 5 719 10
, srcInfoPoints = []
}
"catch")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 12 719 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 12 719 13
, SrcSpan "tests/examples/Directory.hs" 719 60 719 61
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 13 719 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 35 719 37 ]
}
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 13 719 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 13 719 14
, SrcSpan "tests/examples/Directory.hs" 719 33 719 34
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 14 719 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 14 719 15
, SrcSpan "tests/examples/Directory.hs" 719 18 719 20
]
}
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 16 719 17
, srcInfoPoints = []
}
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 21 719 33
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 21 719 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 21 719 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 719 21 719 27
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 28 719 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 28 719 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 719 28 719 33
, srcInfoPoints = []
}
"False"))))))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 719 38 719 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 719 50 719 52 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 38 719 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 38 719 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 38 719 49
, srcInfoPoints = []
}
"IOException")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 53 719 60
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 53 719 55
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 53 719 55
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 53 719 55
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 56 719 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 56 719 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 719 56 719 60
, srcInfoPoints = []
}
"Bool")))))))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 1 725 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 725 15 725 17 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 1 725 14
, srcInfoPoints = []
}
"doesFileExist"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 18 725 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 725 27 725 29 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 18 725 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 18 725 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 18 725 26
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 30 725 37
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 30 725 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 30 725 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 30 725 32
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 33 725 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 33 725 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 725 33 725 37
, srcInfoPoints = []
}
"Bool")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 1 728 61
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 1 728 61
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 1 726 14
, srcInfoPoints = []
}
"doesFileExist")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 15 726 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 15 726 19
, srcInfoPoints = []
}
"name")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 726 20 728 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 726 20 726 21 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 4 728 61
, srcInfoPoints = []
}
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 4 727 89
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 727 4 727 5
, SrcSpan "tests/examples/Directory.hs" 727 88 727 89
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 5 727 88
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 5 727 40
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 5 727 35
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 5 727 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 5 727 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 5 727 19
, srcInfoPoints = []
}
"withFileStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 20 727 35
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 20 727 35
, srcInfoPoints = []
}
"doesFileExist"
"doesFileExist")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 36 727 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 36 727 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 36 727 40
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 41 727 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 41 727 42
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 41 727 42
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 727 43 727 88
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 727 43 727 44
, SrcSpan "tests/examples/Directory.hs" 727 47 727 49
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 44 727 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 44 727 46
, srcInfoPoints = []
}
"st")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 50 727 88
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 727 50 727 52
, SrcSpan "tests/examples/Directory.hs" 727 53 727 53
, SrcSpan "tests/examples/Directory.hs" 727 72 727 73
, SrcSpan "tests/examples/Directory.hs" 727 88 727 88
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 53 727 72
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 727 55 727 57 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 53 727 54
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 53 727 54
, srcInfoPoints = []
}
"b"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 58 727 72
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 58 727 69
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 58 727 69
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 58 727 69
, srcInfoPoints = []
}
"isDirectory")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 70 727 72
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 70 727 72
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 70 727 72
, srcInfoPoints = []
}
"st"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 74 727 88
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 74 727 88
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 74 727 80
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 74 727 80
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 74 727 80
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 727 81 727 88
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 727 81 727 82
, SrcSpan
"tests/examples/Directory.hs" 727 87 727 88
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 82 727 87
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 82 727 85
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
727
82
727
85
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
727
82
727
85
, srcInfoPoints = []
}
"not")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 727 86 727 87
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
727
86
727
87
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
727
86
727
87
, srcInfoPoints = []
}
"b"))))))
]))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 4 728 11
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 4 728 5
, SrcSpan "tests/examples/Directory.hs" 728 5 728 10
, SrcSpan "tests/examples/Directory.hs" 728 10 728 11
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 4 728 11
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 4 728 5
, SrcSpan "tests/examples/Directory.hs" 728 5 728 10
, SrcSpan "tests/examples/Directory.hs" 728 10 728 11
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 5 728 10
, srcInfoPoints = []
}
"catch")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 12 728 61
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 12 728 13
, SrcSpan "tests/examples/Directory.hs" 728 60 728 61
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 13 728 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 35 728 37 ]
}
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 13 728 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 13 728 14
, SrcSpan "tests/examples/Directory.hs" 728 33 728 34
]
}
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 14 728 33
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 14 728 15
, SrcSpan "tests/examples/Directory.hs" 728 18 728 20
]
}
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 16 728 17
, srcInfoPoints = []
}
]
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 21 728 33
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 21 728 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 21 728 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 728 21 728 27
, srcInfoPoints = []
}
"return")))
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 28 728 33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 28 728 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 728 28 728 33
, srcInfoPoints = []
}
"False"))))))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 728 38 728 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 728 50 728 52 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 38 728 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 38 728 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 38 728 49
, srcInfoPoints = []
}
"IOException")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 53 728 60
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 53 728 55
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 53 728 55
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 53 728 55
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 56 728 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 56 728 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 728 56 728 60
, srcInfoPoints = []
}
"Bool")))))))))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 1 742 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 742 21 742 23 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 1 742 20
, srcInfoPoints = []
}
"getModificationTime"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 24 742 48
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 742 33 742 35 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 24 742 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 24 742 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 24 742 32
, srcInfoPoints = []
}
"FilePath")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 36 742 48
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 36 742 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 36 742 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 36 742 38
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 39 742 48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 39 742 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 742 39 742 48
, srcInfoPoints = []
}
"ClockTime")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 1 746 21
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 1 746 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 1 743 20
, srcInfoPoints = []
}
"getModificationTime")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 21 743 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 21 743 25
, srcInfoPoints = []
}
"name")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 26 746 21
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 743 26 743 27 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 743 28 746 21
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 743 28 743 30
, SrcSpan "tests/examples/Directory.hs" 745 2 745 2
, SrcSpan "tests/examples/Directory.hs" 749 1 749 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 745 2 746 21
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 745 2 746 21
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 745 2 745 43
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 2 745 38
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 2 745 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 2 745 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 2 745 16
, srcInfoPoints = []
}
"withFileStatus")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 17 745 38
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 17 745 38
, srcInfoPoints = []
}
"getModificationTime"
"getModificationTime")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 39 745 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 39 745 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 39 745 43
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 745 44 745 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 44 745 45
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 44 745 45
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 745 46 746 21
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 745 46 745 47
, SrcSpan "tests/examples/Directory.hs" 745 51 745 53
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 48 745 50
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 48 745 50
, srcInfoPoints = []
}
"st")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 745 54 746 21
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 745 54 745 56
, SrcSpan "tests/examples/Directory.hs" 746 2 746 2
, SrcSpan "tests/examples/Directory.hs" 746 2 746 2
, SrcSpan "tests/examples/Directory.hs" 749 1 749 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 746 2 746 21
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 746 2 746 21
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 746 2 746 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 746 2 746 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 746 2 746 18
, srcInfoPoints = []
}
"modificationTime")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 746 19 746 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 746 19 746 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 746 19 746 21
, srcInfoPoints = []
}
"st"))))
])))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 1 749 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 16 749 18 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 1 749 15
, srcInfoPoints = []
}
"withFileStatus"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 19 749 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 26 749 28 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 19 749 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 19 749 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 19 749 25
, srcInfoPoints = []
}
"String")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 29 749 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 38 749 40 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 29 749 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 29 749 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 29 749 37
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 41 749 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 61 749 63 ]
}
(TyParen
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 41 749 60
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 41 749 42
, SrcSpan "tests/examples/Directory.hs" 749 59 749 60
]
}
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 42 749 59
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 749 52 749 54 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 42 749 51
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 42 749 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 42 749 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 42 749 45
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 46 749 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 46 749 51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 46 749 51
, srcInfoPoints = []
}
"CStat"))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 55 749 59
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 55 749 57
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 55 749 57
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 55 749 57
, srcInfoPoints = []
}
"IO")))
(TyVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 58 749 59
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 749 58 749 59
, srcInfoPoints = []
}
"a")))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 64 749 68
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 64 749 66
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 64 749 66
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 64 749 66
, srcInfoPoints = []
}
"IO")))
(TyVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 67 749 68
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 749 67 749 68
, srcInfoPoints = []
}
"a"))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 1 754 50
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 1 754 50
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 1 750 15
, srcInfoPoints = []
}
"withFileStatus")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 16 750 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 16 750 19
, srcInfoPoints = []
}
"loc")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 20 750 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 20 750 24
, srcInfoPoints = []
}
"name")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 25 750 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 25 750 26
, srcInfoPoints = []
}
"f")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 27 754 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 750 27 750 28 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 750 29 754 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 750 29 750 31
, SrcSpan "tests/examples/Directory.hs" 751 3 751 3
, SrcSpan "tests/examples/Directory.hs" 756 1 756 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 751 3 754 50
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 751 3 754 50
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 751 3 751 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 3 751 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 3 751 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 3 751 16
, srcInfoPoints = []
}
"modifyIOError")))
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 17 751 40
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 751 17 751 18
, SrcSpan "tests/examples/Directory.hs" 751 39 751 40
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 18 751 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 751 18 751 19
, SrcSpan "tests/examples/Directory.hs" 751 19 751 33
, SrcSpan "tests/examples/Directory.hs" 751 33 751 34
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 18 751 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 751 18 751 19
, SrcSpan "tests/examples/Directory.hs" 751 19 751 33
, SrcSpan "tests/examples/Directory.hs" 751 33 751 34
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 19 751 33
, srcInfoPoints = []
}
"ioeSetFileName")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 35 751 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 35 751 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 35 751 39
, srcInfoPoints = []
}
"name")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 751 41 751 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 41 751 42
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 751 41 751 42
, srcInfoPoints = []
}
"$")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 752 5 754 50
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 5 752 28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 5 752 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 5 752 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 5 752 16
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 17 752 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 17 752 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 17 752 28
, srcInfoPoints = []
}
"sizeof_stat"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 29 752 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 29 752 30
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 29 752 30
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 31 754 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 752 31 752 32
, SrcSpan "tests/examples/Directory.hs" 752 34 752 36
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 32 752 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 752 32 752 33
, srcInfoPoints = []
}
"p")
]
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 7 754 50
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 7 753 43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 7 753 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 7 753 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 7 753 19
, srcInfoPoints = []
}
"withFilePath")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 20 753 43
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 753 20 753 21
, SrcSpan
"tests/examples/Directory.hs" 753 42 753 43
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 21 753 42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 21 753 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
753
21
753
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
753
21
753
37
, srcInfoPoints = []
}
"fileNameEndClean")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 38 753 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
753
38
753
42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
753
38
753
42
, srcInfoPoints = []
}
"name"))))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 44 753 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 44 753 45
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 44 753 45
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 46 754 50
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 753 46 753 47
, SrcSpan "tests/examples/Directory.hs" 753 49 753 51
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 47 753 48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 753 47 753 48
, srcInfoPoints = []
}
"s")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 753 52 754 50
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 753 52 753 54
, SrcSpan "tests/examples/Directory.hs" 754 9 754 9
, SrcSpan "tests/examples/Directory.hs" 756 1 756 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 754 9 754 50
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 754 9 754 50
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
9
754
37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
9
754
33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
9
754
33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
9
754
33
, srcInfoPoints = []
}
"throwErrnoIfMinus1Retry_")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
34
754
37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
34
754
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
34
754
37
, srcInfoPoints = []
}
"loc"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
38
754
50
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
754
38
754
39
, SrcSpan
"tests/examples/Directory.hs"
754
49
754
50
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
39
754
49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
39
754
47
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
39
754
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
39
754
45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
39
754
45
, srcInfoPoints = []
}
"c_stat")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
46
754
47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
46
754
47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
46
754
47
, srcInfoPoints = []
}
"s"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
48
754
49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
48
754
49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
754
48
754
49
, srcInfoPoints = []
}
"p"))))))
]))))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 1 756 77
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 25 756 27 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 1 756 24
, srcInfoPoints = []
}
"withFileOrSymlinkStatus"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 28 756 77
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 35 756 37 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 28 756 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 28 756 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 28 756 34
, srcInfoPoints = []
}
"String")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 38 756 77
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 47 756 49 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 38 756 46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 38 756 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 38 756 46
, srcInfoPoints = []
}
"FilePath")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 50 756 77
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 70 756 72 ]
}
(TyParen
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 50 756 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 50 756 51
, SrcSpan "tests/examples/Directory.hs" 756 68 756 69
]
}
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 51 756 68
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 756 61 756 63 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 51 756 60
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 51 756 54
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 51 756 54
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 51 756 54
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 55 756 60
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 55 756 60
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 55 756 60
, srcInfoPoints = []
}
"CStat"))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 64 756 68
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 64 756 66
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 64 756 66
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 64 756 66
, srcInfoPoints = []
}
"IO")))
(TyVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 67 756 68
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 756 67 756 68
, srcInfoPoints = []
}
"a")))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 73 756 77
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 73 756 75
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 73 756 75
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 73 756 75
, srcInfoPoints = []
}
"IO")))
(TyVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 76 756 77
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 756 76 756 77
, srcInfoPoints = []
}
"a"))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 1 761 49
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 1 761 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 1 757 24
, srcInfoPoints = []
}
"withFileOrSymlinkStatus")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 25 757 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 25 757 28
, srcInfoPoints = []
}
"loc")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 29 757 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 29 757 33
, srcInfoPoints = []
}
"name")
, PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 34 757 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 34 757 35
, srcInfoPoints = []
}
"f")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 36 761 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 757 36 757 37 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 757 38 761 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 757 38 757 40
, SrcSpan "tests/examples/Directory.hs" 758 3 758 3
, SrcSpan "tests/examples/Directory.hs" 763 1 763 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 758 3 761 49
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 758 3 761 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 758 3 758 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 3 758 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 3 758 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 3 758 16
, srcInfoPoints = []
}
"modifyIOError")))
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 17 758 40
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 758 17 758 18
, SrcSpan "tests/examples/Directory.hs" 758 39 758 40
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 18 758 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 758 18 758 19
, SrcSpan "tests/examples/Directory.hs" 758 19 758 33
, SrcSpan "tests/examples/Directory.hs" 758 33 758 34
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 18 758 34
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 758 18 758 19
, SrcSpan "tests/examples/Directory.hs" 758 19 758 33
, SrcSpan "tests/examples/Directory.hs" 758 33 758 34
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 19 758 33
, srcInfoPoints = []
}
"ioeSetFileName")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 35 758 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 35 758 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 35 758 39
, srcInfoPoints = []
}
"name")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 758 41 758 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 41 758 42
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 758 41 758 42
, srcInfoPoints = []
}
"$")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 759 5 761 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 5 759 28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 5 759 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 5 759 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 5 759 16
, srcInfoPoints = []
}
"allocaBytes")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 17 759 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 17 759 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 17 759 28
, srcInfoPoints = []
}
"sizeof_stat"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 29 759 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 29 759 30
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 29 759 30
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 31 761 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 759 31 759 32
, SrcSpan "tests/examples/Directory.hs" 759 34 759 36
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 32 759 33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 759 32 759 33
, srcInfoPoints = []
}
"p")
]
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 7 761 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 7 760 24
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 7 760 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 7 760 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 7 760 19
, srcInfoPoints = []
}
"withFilePath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 20 760 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 20 760 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 20 760 24
, srcInfoPoints = []
}
"name"))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 25 760 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 25 760 26
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 25 760 26
, srcInfoPoints = []
}
"$")))
(Lambda
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 27 761 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 760 27 760 28
, SrcSpan "tests/examples/Directory.hs" 760 30 760 32
]
}
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 28 760 29
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 760 28 760 29
, srcInfoPoints = []
}
"s")
]
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 760 33 761 49
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 760 33 760 35
, SrcSpan "tests/examples/Directory.hs" 761 9 761 9
, SrcSpan "tests/examples/Directory.hs" 763 1 763 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 761 9 761 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 761 9 761 49
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
9
761
37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
9
761
33
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
9
761
33
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
9
761
33
, srcInfoPoints = []
}
"throwErrnoIfMinus1Retry_")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
34
761
37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
34
761
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
34
761
37
, srcInfoPoints = []
}
"loc"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
38
761
49
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
761
38
761
39
, SrcSpan
"tests/examples/Directory.hs"
761
48
761
49
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
39
761
48
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
39
761
46
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
39
761
44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
39
761
44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
39
761
44
, srcInfoPoints = []
}
"lstat")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
45
761
46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
45
761
46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
45
761
46
, srcInfoPoints = []
}
"s"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
47
761
48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
47
761
48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
761
47
761
48
, srcInfoPoints = []
}
"p"))))))
]))))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 1 763 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 763 18 763 20 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 1 763 17
, srcInfoPoints = []
}
"modificationTime"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 21 763 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 763 31 763 33 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 21 763 30
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 21 763 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 21 763 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 21 763 24
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 25 763 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 25 763 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 25 763 30
, srcInfoPoints = []
}
"CStat"))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 34 763 46
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 34 763 36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 34 763 36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 34 763 36
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 37 763 46
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 37 763 46
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 763 37 763 46
, srcInfoPoints = []
}
"ClockTime")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 1 767 52
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 1 767 52
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 1 764 17
, srcInfoPoints = []
}
"modificationTime")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 18 764 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 18 764 22
, srcInfoPoints = []
}
"stat")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 23 767 52
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 764 23 764 24 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 764 25 767 52
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 764 25 764 27
, SrcSpan "tests/examples/Directory.hs" 765 5 765 5
, SrcSpan "tests/examples/Directory.hs" 766 5 766 5
, SrcSpan "tests/examples/Directory.hs" 767 5 767 5
, SrcSpan "tests/examples/Directory.hs" 769 1 769 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 5 765 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 765 11 765 13 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 5 765 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 5 765 10
, srcInfoPoints = []
}
"mtime"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 14 765 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 14 765 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 765 14 765 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 765 14 765 22
, srcInfoPoints = []
}
"st_mtime")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 765 23 765 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 765 23 765 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 765 23 765 27
, srcInfoPoints = []
}
"stat"))))
, LetStmt
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 766 5 766 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 766 5 766 8 ]
}
(BDecls
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 766 9 766 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 766 9 766 9
, SrcSpan "tests/examples/Directory.hs" 767 5 767 0
]
}
[ PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 766 9 766 69
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 9 766 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 9 766 22
, srcInfoPoints = []
}
"realToInteger"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 23 766 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 766 23 766 24 ]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 25 766 69
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 766 44 766 46 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 25 766 43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 25 766 30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 25 766 30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 25 766 30
, srcInfoPoints = []
}
"round")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 31 766 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 31 766 32
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 31 766 32
, srcInfoPoints = []
}
".")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 33 766 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 33 766 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 33 766 43
, srcInfoPoints = []
}
"realToFrac"))))
(TyForall
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 47 766 69
, srcInfoPoints = []
}
Nothing
(Just
(CxSingle
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 47 766 56
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 766 54 766 56
]
}
(ClassA
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 47 766 56
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
766
54
766
56
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
766
47
766
51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
766
47
766
51
, srcInfoPoints = []
}
"Real"))
[ TyVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
766
52
766
53
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
766
52
766
53
, srcInfoPoints = []
}
"a")
])))
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 766 57 766 69
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 766 59 766 61
]
}
(TyVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 57 766 58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 57 766 58
, srcInfoPoints = []
}
"a"))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 62 766 69
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 766 62 766 69
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
766
62
766
69
, srcInfoPoints = []
}
"Integer")))))))
Nothing
])
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 767 5 767 52
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 767 5 767 52
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 767 5 767 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 5 767 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 5 767 11
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 767 12 767 52
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 767 12 767 13
, SrcSpan "tests/examples/Directory.hs" 767 51 767 52
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 13 767 51
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 13 767 49
, srcInfoPoints = []
}
(Con
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 13 767 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 13 767 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 767 13 767 16
, srcInfoPoints = []
}
"TOD")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 17 767 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 767 17 767 18
, SrcSpan "tests/examples/Directory.hs" 767 48 767 49
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 18 767 48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 767 18 767 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 767 18 767 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
18
767
31
, srcInfoPoints = []
}
"realToInteger")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 767 32 767 48
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 767 32 767 33
, SrcSpan
"tests/examples/Directory.hs" 767 47 767 48
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 767 33 767 47
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
767
39
767
41
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
33
767
38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
33
767
38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
33
767
38
, srcInfoPoints = []
}
"mtime")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
42
767
47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
42
767
47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
767
42
767
47
, srcInfoPoints = []
}
"CTime"))))))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 50 767 51
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 767 50 767 51
, srcInfoPoints = []
}
0
"0")))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 1 769 36
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 769 13 769 15 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 1 769 12
, srcInfoPoints = []
}
"isDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 16 769 36
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 769 26 769 28 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 16 769 25
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 16 769 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 16 769 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 16 769 19
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 20 769 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 20 769 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 20 769 25
, srcInfoPoints = []
}
"CStat"))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 29 769 36
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 29 769 31
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 29 769 31
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 29 769 31
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 32 769 36
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 32 769 36
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 769 32 769 36
, srcInfoPoints = []
}
"Bool")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 1 772 24
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 1 772 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 1 770 12
, srcInfoPoints = []
}
"isDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 13 770 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 13 770 17
, srcInfoPoints = []
}
"stat")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 18 772 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 770 18 770 19 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 770 20 772 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 770 20 770 22
, SrcSpan "tests/examples/Directory.hs" 771 3 771 3
, SrcSpan "tests/examples/Directory.hs" 772 3 772 3
, SrcSpan "tests/examples/Directory.hs" 774 1 774 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 3 771 23
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 771 8 771 10 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 3 771 7
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 3 771 7
, srcInfoPoints = []
}
"mode"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 11 771 23
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 11 771 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 771 11 771 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 771 11 771 18
, srcInfoPoints = []
}
"st_mode")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 771 19 771 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 771 19 771 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 771 19 771 23
, srcInfoPoints = []
}
"stat"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 772 3 772 24
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 772 3 772 24
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 772 3 772 9
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 772 3 772 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 3 772 9
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 772 10 772 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 772 10 772 11
, SrcSpan "tests/examples/Directory.hs" 772 23 772 24
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 11 772 23
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 11 772 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 11 772 18
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 11 772 18
, srcInfoPoints = []
}
"s_isdir")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 19 772 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 19 772 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 772 19 772 23
, srcInfoPoints = []
}
"mode"))))))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 1 774 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 774 18 774 20 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 1 774 17
, srcInfoPoints = []
}
"fileNameEndClean"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 21 774 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 774 28 774 30 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 21 774 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 21 774 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 21 774 27
, srcInfoPoints = []
}
"String")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 31 774 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 31 774 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 774 31 774 37
, srcInfoPoints = []
}
"String"))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 1 776 76
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 1 776 76
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 1 775 17
, srcInfoPoints = []
}
"fileNameEndClean")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 18 775 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 18 775 22
, srcInfoPoints = []
}
"name")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 23 776 76
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 775 23 775 24 ]
}
(If
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 25 776 76
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 775 25 775 27
, SrcSpan "tests/examples/Directory.hs" 775 41 775 45
, SrcSpan "tests/examples/Directory.hs" 776 41 776 45
]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 28 775 40
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 28 775 35
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 28 775 35
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 775 28 775 35
, srcInfoPoints = []
}
"isDrive")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 36 775 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 36 775 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 775 36 775 40
, srcInfoPoints = []
}
"name"))))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 46 775 75
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 46 775 70
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 46 775 70
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 775 46 775 70
, srcInfoPoints = []
}
"addTrailingPathSeparator")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 71 775 75
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 775 71 775 75
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 775 71 775 75
, srcInfoPoints = []
}
"name"))))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 776 46 776 76
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 776 46 776 71
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 776 46 776 71
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 776 46 776 71
, srcInfoPoints = []
}
"dropTrailingPathSeparator")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 776 72 776 76
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 776 72 776 76
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 776 72 776 76
, srcInfoPoints = []
}
"name"))))))
Nothing
]
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 1 778 78
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 778 1 778 8
, SrcSpan "tests/examples/Directory.hs" 778 9 778 15
, SrcSpan "tests/examples/Directory.hs" 778 29 778 61
, SrcSpan "tests/examples/Directory.hs" 778 70 778 72
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 16 778 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 22 778 28
, srcInfoPoints = []
}))
(Just "HsDirectory.h __hscore_S_IRUSR")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 62 778 69
, srcInfoPoints = []
}
"s_IRUSR")
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 73 778 78
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 73 778 78
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 778 73 778 78
, srcInfoPoints = []
}
"CMode")))
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 1 779 78
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 779 1 779 8
, SrcSpan "tests/examples/Directory.hs" 779 9 779 15
, SrcSpan "tests/examples/Directory.hs" 779 29 779 61
, SrcSpan "tests/examples/Directory.hs" 779 70 779 72
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 16 779 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 22 779 28
, srcInfoPoints = []
}))
(Just "HsDirectory.h __hscore_S_IWUSR")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 62 779 69
, srcInfoPoints = []
}
"s_IWUSR")
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 73 779 78
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 73 779 78
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 779 73 779 78
, srcInfoPoints = []
}
"CMode")))
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 1 780 78
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 780 1 780 8
, SrcSpan "tests/examples/Directory.hs" 780 9 780 15
, SrcSpan "tests/examples/Directory.hs" 780 29 780 61
, SrcSpan "tests/examples/Directory.hs" 780 70 780 72
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 16 780 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 22 780 28
, srcInfoPoints = []
}))
(Just "HsDirectory.h __hscore_S_IXUSR")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 62 780 69
, srcInfoPoints = []
}
"s_IXUSR")
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 73 780 78
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 73 780 78
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 780 73 780 78
, srcInfoPoints = []
}
"CMode")))
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 1 781 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 781 1 781 8
, SrcSpan "tests/examples/Directory.hs" 781 9 781 15
, SrcSpan "tests/examples/Directory.hs" 781 29 781 47
, SrcSpan "tests/examples/Directory.hs" 781 56 781 58
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 16 781 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 22 781 28
, srcInfoPoints = []
}))
(Just "__hscore_S_IFDIR")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 48 781 55
, srcInfoPoints = []
}
"s_IFDIR")
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 59 781 64
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 59 781 64
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 781 59 781 64
, srcInfoPoints = []
}
"CMode")))
, ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 784 1 785 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 784 1 784 8
, SrcSpan "tests/examples/Directory.hs" 784 9 784 15
, SrcSpan "tests/examples/Directory.hs" 784 29 784 54
, SrcSpan "tests/examples/Directory.hs" 785 18 785 20
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 784 16 784 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 784 22 784 28
, srcInfoPoints = []
}))
(Just "__hscore_long_path_size")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 785 3 785 17
, srcInfoPoints = []
}
"long_path_size")
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 785 21 785 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 785 21 785 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 785 21 785 24
, srcInfoPoints = []
}
"Int")))
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 1 808 32
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 808 18 808 20 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 1 808 17
, srcInfoPoints = []
}
"getHomeDirectory"
]
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 21 808 32
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 21 808 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 21 808 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 21 808 23
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 24 808 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 24 808 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 808 24 808 32
, srcInfoPoints = []
}
"FilePath"))))
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 809 1 818 46
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 809 1 809 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 809 1 809 17
, srcInfoPoints = []
}
"getHomeDirectory"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 809 18 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 809 18 809 19 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 3 818 46
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 3 810 56
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 3 810 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 3 810 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 3 810 16
, srcInfoPoints = []
}
"modifyIOError")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 17 810 56
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 810 17 810 18
, SrcSpan "tests/examples/Directory.hs" 810 55 810 56
]
}
(RightSection
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 18 810 55
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 810 18 810 19
, SrcSpan "tests/examples/Directory.hs" 810 54 810 55
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 19 810 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 810 19 810 20
, SrcSpan "tests/examples/Directory.hs" 810 20 810 34
, SrcSpan "tests/examples/Directory.hs" 810 34 810 35
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 19 810 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 810 19 810 20
, SrcSpan "tests/examples/Directory.hs" 810 20 810 34
, SrcSpan "tests/examples/Directory.hs" 810 34 810 35
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 810 20 810 34
, srcInfoPoints = []
}
"ioeSetLocation")))
(Lit
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 36 810 54
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 36 810 54
, srcInfoPoints = []
}
"getHomeDirectory"
"getHomeDirectory")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 57 810 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 57 810 58
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 57 810 58
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 810 59 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 810 59 810 61
, SrcSpan "tests/examples/Directory.hs" 811 3 811 3
, SrcSpan "tests/examples/Directory.hs" 812 3 812 3
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 3 811 73
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 811 5 811 7 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 3 811 4
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 3 811 4
, srcInfoPoints = []
}
"r"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 8 811 73
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 8 811 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 8 811 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 8 811 11
, srcInfoPoints = []
}
"try")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 12 811 13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 12 811 13
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 12 811 13
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 811 14 811 73
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 14 811 71
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 14 811 63
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 14 811 43
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 14 811 35
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 14 811 35
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 14 811 35
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 14 811 35
, srcInfoPoints = []
}
"sHGetFolderPath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 36 811 43
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 36 811 43
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 36 811 43
, srcInfoPoints = []
}
"nullPtr"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 44 811 63
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 44 811 63
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 44 811 63
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 811 44 811 63
, srcInfoPoints = []
}
"cSIDL_PROFILE"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 64 811 71
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 64 811 71
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 64 811 71
, srcInfoPoints = []
}
"nullPtr"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 72 811 73
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 811 72 811 73
, srcInfoPoints = []
}
0
"0"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 812 3 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 812 3 812 7
, SrcSpan "tests/examples/Directory.hs" 812 41 812 43
, SrcSpan "tests/examples/Directory.hs" 813 5 813 5
, SrcSpan "tests/examples/Directory.hs" 814 5 814 5
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
(Case
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 812 3 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 812 3 812 7
, SrcSpan "tests/examples/Directory.hs" 812 41 812 43
, SrcSpan "tests/examples/Directory.hs" 813 5 813 5
, SrcSpan "tests/examples/Directory.hs" 814 5 814 5
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 812 8 812 40
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 812 8 812 9
, SrcSpan "tests/examples/Directory.hs" 812 39 812 40
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 812 9 812 39
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 812 11 812 13 ]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 9 812 10
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 9 812 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 9 812 10
, srcInfoPoints = []
}
"r")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 14 812 39
, srcInfoPoints = []
}
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 14 812 32
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 14 812 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 812 14 812 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 812 14 812 20
, srcInfoPoints = []
}
"Either")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 21 812 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 812 21 812 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 812 21 812 32
, srcInfoPoints = []
}
"IOException"))))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 33 812 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 812 33 812 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 812 33 812 39
, srcInfoPoints = []
}
"String"))))))
[ Alt
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 813 5 813 24
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 5 813 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 5 813 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 5 813 10
, srcInfoPoints = []
}
"Right"))
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 11 813 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 11 813 12
, srcInfoPoints = []
}
"s")
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 13 813 24
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 813 13 813 15 ]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 16 813 24
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 16 813 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 16 813 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 813 16 813 22
, srcInfoPoints = []
}
"return")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 23 813 24
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 813 23 813 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 813 23 813 24
, srcInfoPoints = []
}
"s")))))
Nothing
, Alt
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 814 5 818 46
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 5 814 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 5 814 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 5 814 9
, srcInfoPoints = []
}
"Left"))
[ PWildCard
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 11 814 12
, srcInfoPoints = []
}
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 13 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 814 13 814 15 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 814 16 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 814 16 814 18
, SrcSpan "tests/examples/Directory.hs" 815 7 815 7
, SrcSpan "tests/examples/Directory.hs" 816 7 816 7
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 815 7 815 78
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 815 10 815 12
]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 815 7 815 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 7 815 9
, srcInfoPoints = []
}
"r1"))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 815 13 815 78
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 13 815 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 13 815 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
13
815
16
, srcInfoPoints = []
}
"try")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 17 815 18
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 17 815 18
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
17
815
18
, srcInfoPoints = []
}
"$")))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 19 815 78
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 19 815 76
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
68
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
48
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
40
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
40
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
40
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
19
815
40
, srcInfoPoints = []
}
"sHGetFolderPath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
41
815
48
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
41
815
48
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
41
815
48
, srcInfoPoints = []
}
"nullPtr"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
49
815
68
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
49
815
68
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
49
815
68
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
49
815
68
, srcInfoPoints = []
}
"cSIDL_WINDOWS"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
69
815
76
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
69
815
76
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
69
815
76
, srcInfoPoints = []
}
"nullPtr"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 815 77 815 78
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
815
77
815
78
, srcInfoPoints = []
}
0
"0"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 816 7 818 46
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 816 7 816 11
, SrcSpan "tests/examples/Directory.hs" 816 15 816 17
, SrcSpan "tests/examples/Directory.hs" 817 9 817 9
, SrcSpan "tests/examples/Directory.hs" 818 9 818 9
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
(Case
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 816 7 818 46
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 816 7 816 11
, SrcSpan
"tests/examples/Directory.hs" 816 15 816 17
, SrcSpan "tests/examples/Directory.hs" 817 9 817 9
, SrcSpan "tests/examples/Directory.hs" 818 9 818 9
, SrcSpan "tests/examples/Directory.hs" 847 1 847 0
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 816 12 816 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 816 12 816 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
816
12
816
14
, srcInfoPoints = []
}
"r1")))
[ Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 817 9 817 28
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 817 9 817 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
9
817
14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
9
817
14
, srcInfoPoints = []
}
"Right"))
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
15
817
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
15
817
16
, srcInfoPoints = []
}
"s")
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
17
817
28
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
817
17
817
19
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
20
817
28
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
20
817
26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
20
817
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
20
817
26
, srcInfoPoints = []
}
"return")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
27
817
28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
27
817
28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
817
27
817
28
, srcInfoPoints = []
}
"s")))))
Nothing
, Alt
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 818 9 818 46
, srcInfoPoints = []
}
(PApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 818 9 818 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
9
818
13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
9
818
13
, srcInfoPoints = []
}
"Left"))
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
15
818
16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
15
818
16
, srcInfoPoints = []
}
"e")
])
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
17
818
46
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
818
17
818
19
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
20
818
46
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
20
818
27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
20
818
27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
20
818
27
, srcInfoPoints = []
}
"ioError")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
28
818
46
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
818
28
818
29
, SrcSpan
"tests/examples/Directory.hs"
818
45
818
46
]
}
(ExpTypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
29
818
45
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs"
818
31
818
33
]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
29
818
30
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
29
818
30
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
29
818
30
, srcInfoPoints = []
}
"e")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
34
818
45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
34
818
45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
818
34
818
45
, srcInfoPoints = []
}
"IOException")))))))
Nothing
])
]))
Nothing
])
])))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 1 847 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 847 25 847 27 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 1 847 24
, srcInfoPoints = []
}
"getAppUserDataDirectory"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 28 847 49
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 847 35 847 37 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 28 847 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 28 847 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 28 847 34
, srcInfoPoints = []
}
"String")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 38 847 49
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 38 847 40
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 38 847 40
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 38 847 40
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 41 847 49
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 41 847 49
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 847 41 847 49
, srcInfoPoints = []
}
"FilePath")))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 1 851 27
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 1 851 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 1 848 24
, srcInfoPoints = []
}
"getAppUserDataDirectory")
[ PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 25 848 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 25 848 32
, srcInfoPoints = []
}
"appName")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 33 851 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 848 33 848 34 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 848 35 851 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 848 35 848 37
, SrcSpan "tests/examples/Directory.hs" 849 3 849 3
, SrcSpan "tests/examples/Directory.hs" 874 1 874 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 849 3 851 27
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 849 3 851 27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 849 3 849 63
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 3 849 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 3 849 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 3 849 16
, srcInfoPoints = []
}
"modifyIOError")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 17 849 63
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 849 17 849 18
, SrcSpan "tests/examples/Directory.hs" 849 62 849 63
]
}
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 18 849 62
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 849 18 849 19
, SrcSpan "tests/examples/Directory.hs" 849 61 849 62
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 19 849 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 849 19 849 20
, SrcSpan "tests/examples/Directory.hs" 849 20 849 34
, SrcSpan "tests/examples/Directory.hs" 849 34 849 35
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 19 849 35
, srcInfoPoints =
[ SrcSpan
"tests/examples/Directory.hs" 849 19 849 20
, SrcSpan
"tests/examples/Directory.hs" 849 20 849 34
, SrcSpan
"tests/examples/Directory.hs" 849 34 849 35
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 849 20 849 34
, srcInfoPoints = []
}
"ioeSetLocation")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 36 849 61
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 36 849 61
, srcInfoPoints = []
}
"getAppUserDataDirectory"
"getAppUserDataDirectory")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 849 64 849 65
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 64 849 65
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 849 64 849 65
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 849 66 851 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 849 66 849 68
, SrcSpan "tests/examples/Directory.hs" 850 3 850 3
, SrcSpan "tests/examples/Directory.hs" 850 3 850 3
, SrcSpan "tests/examples/Directory.hs" 851 3 851 3
, SrcSpan "tests/examples/Directory.hs" 874 1 874 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 3 850 67
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 850 5 850 7 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 3 850 4
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 3 850 4
, srcInfoPoints = []
}
"s"))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 8 850 67
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 8 850 65
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 8 850 57
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 8 850 37
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 8 850 29
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
8
850
29
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
8
850
29
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
8
850
29
, srcInfoPoints = []
}
"sHGetFolderPath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 30 850 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
30
850
37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
30
850
37
, srcInfoPoints = []
}
"nullPtr"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 38 850 57
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 38 850 57
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
38
850
57
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
850
38
850
57
, srcInfoPoints = []
}
"cSIDL_APPDATA"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 58 850 65
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 58 850 65
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 850 58 850 65
, srcInfoPoints = []
}
"nullPtr"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 66 850 67
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 850 66 850 67
, srcInfoPoints = []
}
0
"0")))
, Qualifier
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 3 851 27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 3 851 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 3 851 9
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 3 851 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 3 851 9
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 10 851 27
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 851 10 851 11
, SrcSpan "tests/examples/Directory.hs" 851 26 851 27
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 851 11 851 26
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 11 851 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 11 851 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
11
851
12
, srcInfoPoints = []
}
"s")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 12 851 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 12 851 14
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
12
851
14
, srcInfoPoints = []
}
"++")))
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 14 851 26
, srcInfoPoints = []
}
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 14 851 18
, srcInfoPoints = []
}
(Char
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
14
851
18
, srcInfoPoints = []
}
'\\'
"\\\\"))
(QConOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 18 851 19
, srcInfoPoints = []
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
18
851
19
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
18
851
19
, srcInfoPoints = []
})))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 851 19 851 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
19
851
26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
851
19
851
26
, srcInfoPoints = []
}
"appName")))))))
]))
]))
Nothing
]
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 1 874 41
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 874 27 874 29 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 1 874 26
, srcInfoPoints = []
}
"getUserDocumentsDirectory"
]
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 30 874 41
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 30 874 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 30 874 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 30 874 32
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 33 874 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 33 874 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 874 33 874 41
, srcInfoPoints = []
}
"FilePath"))))
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 875 1 877 63
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 875 1 875 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 875 1 875 26
, srcInfoPoints = []
}
"getUserDocumentsDirectory"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 875 27 877 63
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 875 27 875 28 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 875 29 877 63
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 875 29 875 31
, SrcSpan "tests/examples/Directory.hs" 876 3 876 3
, SrcSpan "tests/examples/Directory.hs" 905 1 905 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 3 877 63
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 3 877 63
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 3 876 65
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 3 876 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 3 876 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 3 876 16
, srcInfoPoints = []
}
"modifyIOError")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 17 876 65
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 876 17 876 18
, SrcSpan "tests/examples/Directory.hs" 876 64 876 65
]
}
(RightSection
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 18 876 64
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 876 18 876 19
, SrcSpan "tests/examples/Directory.hs" 876 63 876 64
]
}
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 19 876 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 876 19 876 20
, SrcSpan "tests/examples/Directory.hs" 876 20 876 34
, SrcSpan "tests/examples/Directory.hs" 876 34 876 35
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 19 876 35
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 876 19 876 20
, SrcSpan "tests/examples/Directory.hs" 876 20 876 34
, SrcSpan "tests/examples/Directory.hs" 876 34 876 35
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 20 876 34
, srcInfoPoints = []
}
"ioeSetLocation")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 36 876 63
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 36 876 63
, srcInfoPoints = []
}
"getUserDocumentsDirectory"
"getUserDocumentsDirectory")))))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 66 876 67
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 66 876 67
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 876 66 876 67
, srcInfoPoints = []
}
"$")))
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 876 68 877 63
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 876 68 876 70
, SrcSpan "tests/examples/Directory.hs" 877 3 877 3
, SrcSpan "tests/examples/Directory.hs" 877 3 877 3
, SrcSpan "tests/examples/Directory.hs" 905 1 905 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 877 3 877 63
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 3 877 63
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 3 877 61
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 3 877 53
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 3 877 32
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 3 877 24
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 3 877 24
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
877
3
877
24
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
877
3
877
24
, srcInfoPoints = []
}
"sHGetFolderPath")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 25 877 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 25 877 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs"
877
25
877
32
, srcInfoPoints = []
}
"nullPtr"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 33 877 53
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 33 877 53
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 33 877 53
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 33 877 53
, srcInfoPoints = []
}
"cSIDL_PERSONAL"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 54 877 61
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 54 877 61
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/Directory.hs" 877 54 877 61
, srcInfoPoints = []
}
"nullPtr"))))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 62 877 63
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/Directory.hs" 877 62 877 63
, srcInfoPoints = []
}
0
"0")))
]))
]))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 1 905 37
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 905 23 905 25 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 1 905 22
, srcInfoPoints = []
}
"getTemporaryDirectory"
]
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 26 905 37
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 26 905 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 26 905 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 26 905 28
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 29 905 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 29 905 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 905 29 905 37
, srcInfoPoints = []
}
"FilePath"))))
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 906 1 907 30
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 906 1 906 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 906 1 906 22
, srcInfoPoints = []
}
"getTemporaryDirectory"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 906 23 907 30
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 906 23 906 24 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 906 25 907 30
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 906 25 906 27
, SrcSpan "tests/examples/Directory.hs" 907 3 907 3
, SrcSpan "tests/examples/Directory.hs" 912 1 912 0
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 907 3 907 30
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 907 3 907 30
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 907 3 907 30
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 907 3 907 30
, srcInfoPoints = []
}
"Win32")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 907 3 907 30
, srcInfoPoints = []
}
"getTemporaryDirectory")))
]))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 912 1 912 23
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 912 14 912 16 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 912 1 912 13
, srcInfoPoints = []
}
"exeExtension"
]
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 912 17 912 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 912 17 912 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 912 17 912 23
, srcInfoPoints = []
}
"String")))
, PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 1 913 21
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 1 913 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 1 913 13
, srcInfoPoints = []
}
"exeExtension"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 14 913 21
, srcInfoPoints =
[ SrcSpan "tests/examples/Directory.hs" 913 14 913 15 ]
}
(Lit
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 16 913 21
, srcInfoPoints = []
}
(String
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/Directory.hs" 913 16 913 21
, srcInfoPoints = []
}
"exe"
"exe")))
Nothing
]
, [ Comment
False
(SrcSpan "tests/examples/Directory.hs" 3 1 3 78)
"---------------------------------------------------------------------------"
, Comment
False (SrcSpan "tests/examples/Directory.hs" 4 1 4 5) " |"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 5 1 5 35)
" Module : System.Directory"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 6 1 6 53)
" Copyright : (c) The University of Glasgow 2001"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 7 1 7 66)
" License : BSD-style (see the file libraries/base/LICENSE)"
, Comment False (SrcSpan "tests/examples/Directory.hs" 8 1 8 3) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 9 1 9 40)
" Maintainer : libraries@haskell.org"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 10 1 10 25)
" Stability : stable"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 11 1 11 27)
" Portability : portable"
, Comment
False (SrcSpan "tests/examples/Directory.hs" 12 1 12 3) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 13 1 13 59)
" System-independent interface to directory manipulation."
, Comment
False (SrcSpan "tests/examples/Directory.hs" 14 1 14 3) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 15 1 15 78)
"---------------------------------------------------------------------------"
, Comment
False (SrcSpan "tests/examples/Directory.hs" 19 5 19 14) " $intro"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 21 5 21 32)
" * Actions on directories"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 22 29 22 52)
" :: FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 23 33 23 64)
" :: Bool -> FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 24 29 24 52)
" :: FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 25 33 25 56)
" :: FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 26 29 26 64)
" :: FilePath -> FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 28 33 28 64)
" :: FilePath -> IO [FilePath]"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 29 33 29 50)
" :: IO FilePath"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 30 33 30 56)
" :: FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 32 5 32 33)
" * Pre-defined directories"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 38 5 38 26)
" * Actions on files"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 39 25 39 48)
" :: FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 40 33 40 68)
" :: FilePath -> FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 41 33 41 68)
" :: FilePath -> FilePath -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 47 5 47 25)
" * Existence tests"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 48 25 48 50)
" :: FilePath -> IO Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 49 33 49 58)
" :: FilePath -> IO Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 51 5 51 21)
" * Permissions"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 53 5 53 20)
" $permissions"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 57 21 57 46)
" :: Permissions -> Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 58 21 58 46)
" :: Permissions -> Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 59 21 59 46)
" :: Permissions -> Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 60 21 60 46)
" :: Permissions -> Bool"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 63 33 63 65)
" :: FilePath -> IO Permissions"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 64 33 64 71)
" :: FilePath -> Permissions -> IO ()"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 67 5 67 20)
" * Timestamps"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 69 33 69 63)
" :: FilePath -> IO ClockTime"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 86 1 86 33)
"# CFILES cbits/directory.c #"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 96 1 110 3)
" $intro\nA directory contains a series of entries, each of which is a named\nreference to a file system object (file, directory etc.). Some\nentries may be hidden, inaccessible, or have some administrative\nfunction (e.g. `.' or `..' under POSIX\n), but in\nthis standard all such entries are considered to form part of the\ndirectory contents. Entries in sub-directories are not, however,\nconsidered to form part of the directory contents.\n\nEach file system object is referenced by a /path/. There is\nnormally at least one absolute path to each file system object. In\nsome operating systems, it may also be possible to have paths which\nare relative to the current directory.\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 112 1 112 78)
"---------------------------------------------------------------------------"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 113 1 113 15)
" Permissions"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 115 1 132 3)
" $permissions\n\n The 'Permissions' type is used to record whether certain operations are\n permissible on a file\\/directory. 'getPermissions' and 'setPermissions'\n get and set these permissions, respectively. Permissions apply both to\n files and directories. For directories, the executable field will be\n 'False', and for files the searchable field will be 'False'. Note that\n directories may be searchable without being readable, if permission has\n been given to use them as part of a path, but not to examine the\n directory contents.\n\nNote that to change some, but not all permissions, a construct on the following lines must be used.\n\n> makeReadable f = do\n> p <- getPermissions f\n> setPermissions f (p {readable = True})\n\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 140 1 150 3)
" |The 'getPermissions' operation returns the\npermissions for the file or directory.\n\nThe operation may fail with:\n\n* 'isPermissionError' if the user is not permitted to access\n the permissions; or\n\n* 'isDoesNotExistError' if the file or directory does not exist.\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 155 3 155 69)
" stat() does a better job of guessing the permissions on Windows"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 156 3 156 71)
" than access() does. e.g. for execute permission, it looks at the"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 157 3 157 28)
" filename extension :-)"
, Comment
False (SrcSpan "tests/examples/Directory.hs" 158 3 158 5) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 159 3 159 78)
" I tried for a while to do this properly, using the Windows security API,"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 160 3 160 79)
" and eventually gave up. getPermissions is a flawed API anyway. -- SimonM"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 177 1 187 3)
" |The 'setPermissions' operation sets the\npermissions for the file or directory.\n\nThe operation may fail with:\n\n* 'isPermissionError' if the user is not permitted to set\n the permissions; or\n\n* 'isDoesNotExistError' if the file or directory does not exist.\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 217 1 217 78)
"---------------------------------------------------------------------------"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 218 1 218 18)
" Implementation"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 220 1 255 3)
" |@'createDirectory' dir@ creates a new directory @dir@ which is\ninitially empty, or as near to empty as the operating system\nallows.\n\nThe operation may fail with:\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EROFS, EACCES]@\n\n* 'isAlreadyExistsError' \\/ 'AlreadyExists'\nThe operand refers to a directory that already exists.\n@ [EEXIST]@\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nThe operand is not a valid directory name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'NoSuchThing'\nThere is no path to the directory.\n@[ENOENT, ENOTDIR]@\n\n* 'ResourceExhausted'\nInsufficient resources (virtual memory, process file descriptors,\nphysical disk space, etc.) are available to perform the operation.\n@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@\n\n* 'InappropriateType'\nThe path refers to an existing non-directory object.\n@[EEXIST]@\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 261 1 261 70)
" | @'createDirectoryIfMissing' parents dir@ creates a new directory"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 262 1 262 63)
" @dir@ if it doesn\\'t exist. If the first argument is 'True'"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 263 1 263 77)
" the function will also create all parent directories if they are missing."
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 264 38 264 66)
" ^ Create its parents too?"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 265 30 265 77)
" ^ The path to the directory you want to make"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 287 11 287 75)
" createDirectory (and indeed POSIX mkdir) does not distinguish"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 288 11 288 79)
" between a dir already existing and a file already existing. So we"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 289 11 289 79)
" check for it here. Unfortunately there is a slight race condition"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 290 11 290 77)
" here, but we think it is benign. It could report an exeption in"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 291 11 291 77)
" the case that the dir did exist but another process deletes the"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 292 11 292 75)
" directory and creates a file in its place before we can check"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 293 11 293 50)
" that the directory did indeed exist."
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 302 1 341 3)
" | @'removeDirectory' dir@ removes an existing directory /dir/. The\nimplementation may specify additional constraints which must be\nsatisfied before a directory can be removed (e.g. the directory has to\nbe empty, or may not be in use by other processes). It is not legal\nfor an implementation to partially remove a directory unless the\nentire directory is removed. A conformant implementation need not\nsupport directory removal in all situations (e.g. removal of the root\ndirectory).\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\nEIO\n\n* 'InvalidArgument'\nThe operand is not a valid directory name.\n[ENAMETOOLONG, ELOOP]\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe directory does not exist.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EROFS, EACCES, EPERM]@\n\n* 'UnsatisfiedConstraints'\nImplementation-dependent constraints are not satisfied.\n@[EBUSY, ENOTEMPTY, EEXIST]@\n\n* 'UnsupportedOperation'\nThe implementation does not support removal in this situation.\n@[EINVAL]@\n\n* 'InappropriateType'\nThe operand refers to an existing non-directory object.\n@[ENOTDIR]@\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 347 1 347 75)
" | @'removeDirectoryRecursive' dir@ removes an existing directory /dir/"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 348 1 348 65)
" together with its content and all subdirectories. Be careful,"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 349 1 349 70)
" if the directory contains symlinks, the function will follow them."
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 360 31 360 77)
" If f is not a directory, re-throw the error"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 365 1 397 3)
" |'removeFile' /file/ removes the directory entry for an existing file\n/file/, where /file/ is not itself a directory. The\nimplementation may specify additional constraints which must be\nsatisfied before a file can be removed (e.g. the file may not be in\nuse by other processes).\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nThe operand is not a valid file name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe file does not exist.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EROFS, EACCES, EPERM]@\n\n* 'UnsatisfiedConstraints'\nImplementation-dependent constraints are not satisfied.\n@[EBUSY]@\n\n* 'InappropriateType'\nThe operand refers to an existing directory.\n@[EPERM, EINVAL]@\n\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 403 1 450 3)
" |@'renameDirectory' old new@ changes the name of an existing\ndirectory from /old/ to /new/. If the /new/ directory\nalready exists, it is atomically replaced by the /old/ directory.\nIf the /new/ directory is neither the /old/ directory nor an\nalias of the /old/ directory, it is removed as if by\n'removeDirectory'. A conformant implementation need not support\nrenaming directories in all situations (e.g. renaming to an existing\ndirectory, or across different physical devices), but the constraints\nmust be documented.\n\nOn Win32 platforms, @renameDirectory@ fails if the /new/ directory already\nexists.\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nEither operand is not a valid directory name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe original directory does not exist, or there is no path to the target.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EROFS, EACCES, EPERM]@\n\n* 'ResourceExhausted'\nInsufficient resources are available to perform the operation.\n@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@\n\n* 'UnsatisfiedConstraints'\nImplementation-dependent constraints are not satisfied.\n@[EBUSY, ENOTEMPTY, EEXIST]@\n\n* 'UnsupportedOperation'\nThe implementation does not support renaming in this situation.\n@[EINVAL, EXDEV]@\n\n* 'InappropriateType'\nEither path refers to an existing non-directory object.\n@[ENOTDIR, EISDIR]@\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 454 4 454 73)
" XXX this test isn't performed atomically with the following rename"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 455 4 455 26)
" ToDo: use Win32 API"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 465 1 507 3)
" |@'renameFile' old new@ changes the name of an existing file system\nobject from /old/ to /new/. If the /new/ object already\nexists, it is atomically replaced by the /old/ object. Neither\npath may refer to an existing directory. A conformant implementation\nneed not support renaming files in all situations (e.g. renaming\nacross different physical devices), but the constraints must be\ndocumented.\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nEither operand is not a valid file name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe original file does not exist, or there is no path to the target.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EROFS, EACCES, EPERM]@\n\n* 'ResourceExhausted'\nInsufficient resources are available to perform the operation.\n@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@\n\n* 'UnsatisfiedConstraints'\nImplementation-dependent constraints are not satisfied.\n@[EBUSY]@\n\n* 'UnsupportedOperation'\nThe implementation does not support renaming in this situation.\n@[EXDEV]@\n\n* 'InappropriateType'\nEither path refers to an existing directory.\n@[ENOTDIR, EISDIR, EINVAL, EEXIST, ENOTEMPTY]@\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 511 4 511 73)
" XXX this test isn't performed atomically with the following rename"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 512 4 512 26)
" ToDo: use Win32 API"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 522 1 526 3)
" |@'copyFile' old new@ copies the existing file from /old/ to /new/.\nIf the /new/ file already exists, it is atomically replaced by the /old/ file.\nNeither path may refer to an existing directory. The permissions of /old/ are\ncopied to /new/, if possible.\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 553 1 553 60)
" | Given path referring to a file or directory, returns a"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 554 1 554 64)
" canonicalized path, with the intent that two paths referring"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 555 1 555 66)
" to the same file\\/directory will map to the same canonicalized"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 556 1 556 58)
" path. Note that it is impossible to guarantee that the"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 557 1 557 67)
" implication (same file\\/dir \\<=\\> same canonicalizedPath) holds"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 558 1 558 66)
" in either direction: this function can make only a best-effort"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 559 1 559 12)
" attempt."
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 564 9 564 73)
" normalise does more stuff, like upper-casing the drive letter"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 567 1 567 43)
" | 'makeRelative' the current directory."
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 573 1 573 66)
" | Given an executable file name, searches for such file in the"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 574 1 574 69)
" directories listed in system PATH. The returned value is the path"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 575 1 575 70)
" to the found executable or Nothing if an executable with the given"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 576 1 576 70)
" name was not found. For example (findExecutable \\\"ghc\\\") gives you"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 577 1 577 20)
" the path to GHC."
, Comment
False (SrcSpan "tests/examples/Directory.hs" 578 1 578 3) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 579 1 579 60)
" The path returned by 'findExecutable' corresponds to the"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 580 1 580 68)
" program that would be executed by 'System.Process.createProcess'"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 581 1 581 70)
" when passed the same string (as a RawCommand, not a ShellCommand)."
, Comment
False (SrcSpan "tests/examples/Directory.hs" 582 1 582 3) ""
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 583 1 583 71)
" On Windows, 'findExecutable' calls the Win32 function 'SearchPath',"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 584 1 584 68)
" which may search other places before checking the directories in"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 585 1 585 69)
" @PATH@. Where it actually searches depends on registry settings,"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 586 1 586 61)
" but notably includes the directory containing the current"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 587 1 587 19)
" executable. See"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 588 1 588 68)
" for more"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 589 1 589 12)
" details."
, Comment
False (SrcSpan "tests/examples/Directory.hs" 590 1 590 3) ""
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 596 1 625 3)
" |@'getDirectoryContents' dir@ returns a list of /all/ entries\nin /dir/.\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nThe operand is not a valid directory name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe directory does not exist.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EACCES]@\n\n* 'ResourceExhausted'\nInsufficient resources are available to perform the operation.\n@[EMFILE, ENFILE]@\n\n* 'InappropriateType'\nThe path refers to an existing non-directory object.\n@[ENOTDIR]@\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 636 9 636 71)
" we needn't worry about empty directories: adirectory always"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 637 9 637 45)
" has at least \".\" and \"..\" entries"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 645 18 645 62)
" no need to reverse, ordering is undefined"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 647 1 671 3)
" |If the operating system has a notion of current directories,\n'getCurrentDirectory' returns an absolute path to the\ncurrent directory of the calling process.\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThere is no path referring to the current directory.\n@[EPERM, ENOENT, ESTALE...]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EACCES]@\n\n* 'ResourceExhausted'\nInsufficient resources are available to perform the operation.\n\n* 'UnsupportedOperation'\nThe operating system has no notion of current directory.\n\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 676 1 706 3)
" |If the operating system has a notion of current directories,\n@'setCurrentDirectory' dir@ changes the current\ndirectory of the calling process to /dir/.\n\nThe operation may fail with:\n\n* 'HardwareFault'\nA physical I\\/O error has occurred.\n@[EIO]@\n\n* 'InvalidArgument'\nThe operand is not a valid directory name.\n@[ENAMETOOLONG, ELOOP]@\n\n* 'isDoesNotExistError' \\/ 'NoSuchThing'\nThe directory does not exist.\n@[ENOENT, ENOTDIR]@\n\n* 'isPermissionError' \\/ 'PermissionDenied'\nThe process has insufficient privileges to perform the operation.\n@[EACCES]@\n\n* 'UnsupportedOperation'\nThe operating system has no notion of current directory, or the\ncurrent directory cannot be dynamically changed.\n\n* 'InappropriateType'\nThe path refers to an existing non-directory object.\n@[ENOTDIR]@\n\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 712 1 714 3)
" |The operation 'doesDirectoryExist' returns 'True' if the argument file\nexists and is a directory, and 'False' otherwise.\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 721 1 723 3)
" |The operation 'doesFileExist' returns 'True'\nif the argument file exists and is not a directory, and 'False' otherwise.\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 730 1 740 3)
" |The 'getModificationTime' operation returns the\nclock time at which the file or directory was last modified.\n\nThe operation may fail with:\n\n* 'isPermissionError' if the user is not permitted to access\n the modification time; or\n\n* 'isDoesNotExistError' if the file or directory does not exist.\n\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 744 2 744 24)
" ToDo: use Win32 API"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 787 1 807 3)
" | Returns the current user's home directory.\n\nThe directory returned is expected to be writable by the current user,\nbut note that it isn't generally considered good practice to store\napplication-specific data here; use 'getAppUserDataDirectory'\ninstead.\n\nOn Unix, 'getHomeDirectory' returns the value of the @HOME@\nenvironment variable. On Windows, the system is queried for a\nsuitable path; a typical path might be\n@C:/Documents And Settings/user@.\n\nThe operation may fail with:\n\n* 'UnsupportedOperation'\nThe operating system has no notion of home directory.\n\n* 'isDoesNotExistError'\nThe home directory for the current user does not exist, or\ncannot be found.\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 820 1 846 3)
" | Returns the pathname of a directory in which application-specific\ndata for the current user can be stored. The result of\n'getAppUserDataDirectory' for a given application is specific to\nthe current user.\n\nThe argument should be the name of the application, which will be used\nto construct the pathname (so avoid using unusual characters that\nmight result in an invalid pathname).\n\nNote: the directory may not actually exist, and may need to be created\nfirst. It is expected that the parent directory exists and is\nwritable.\n\nOn Unix, this function returns @$HOME\\/.appName@. On Windows, a\ntypical path might be\n\n> C:/Documents And Settings/user/Application Data/appName\n\nThe operation may fail with:\n\n* 'UnsupportedOperation'\nThe operating system has no notion of application-specific data directory.\n\n* 'isDoesNotExistError'\nThe home directory for the current user does not exist, or\ncannot be found.\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 853 1 873 3)
" | Returns the current user's document directory.\n\nThe directory returned is expected to be writable by the current user,\nbut note that it isn't generally considered good practice to store\napplication-specific data here; use 'getAppUserDataDirectory'\ninstead.\n\nOn Unix, 'getUserDocumentsDirectory' returns the value of the @HOME@\nenvironment variable. On Windows, the system is queried for a\nsuitable path; a typical path might be\n@C:\\/Documents and Settings\\/user\\/My Documents@.\n\nThe operation may fail with:\n\n* 'UnsupportedOperation'\nThe operating system has no notion of document directory.\n\n* 'isDoesNotExistError'\nThe document directory for the current user does not exist, or\ncannot be found.\n"
, Comment
True
(SrcSpan "tests/examples/Directory.hs" 879 1 904 3)
" | Returns the current directory for temporary files.\n\nOn Unix, 'getTemporaryDirectory' returns the value of the @TMPDIR@\nenvironment variable or \\\"\\/tmp\\\" if the variable isn\\'t defined.\nOn Windows, the function checks for the existence of environment variables in\nthe following order and uses the first path found:\n\n*\nTMP environment variable.\n\n*\nTEMP environment variable.\n\n*\nUSERPROFILE environment variable.\n\n*\nThe Windows directory\n\nThe operation may fail with:\n\n* 'UnsupportedOperation'\nThe operating system has no notion of temporary directory.\n\nThe function doesn\\'t verify whether the path exists.\n"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 909 1 909 60)
" ToDo: This should be determined via autoconf (AC_EXEEXT)"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 910 1 910 36)
" | Extension for executable files"
, Comment
False
(SrcSpan "tests/examples/Directory.hs" 911 1 911 64)
" (typically @\\\"\\\"@ on Unix and @\\\"exe\\\"@ on Windows or OS\\/2)"
]
)