blob: 3989b99fdd2569fdc8b8fbdcd8166b54986686ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
import System.Environment
-- This covers #11303, wherein the pattern checker would explode
-- when it encountered patterns sharing a prefix.
main :: IO ()
main = do
args <- getArgs
print $ case head args of
"--primop-primop-info" -> "turtle"
"--primop-tag" -> "asdf"
"--primop-list" -> "casdhf"
"--primop-vector-uniques" -> "this"
"--primop-vector-tys" -> "is"
"--primop-vector-tys-exports" -> "silly"
"--primop-vector-tycons" -> "hmmm"
"--primop-vector-turtles" -> "hmmm"
"--primop-vector-plugs" -> "hmmm"
"--primop-vector-caps" -> "hmmm"
"--primop-vector-wires" -> "hmmm"
"--primop-vector-tornado" -> "hmmm"
"--primop-vector-tomato" -> "hmmm"
"--primop-vector-maps" -> "hmmm"
"--primop-vector-paper" -> "hmmm"
"--make-haskell-wrappers" -> "123512"
"--make-haskell-source" -> "as;dg"
"--make-latex-doc" -> "adghiw"
_ -> error "Should not happen, known_args out of sync?"
|