bitemyapp / fp-course Goto Github PK

STACK_YAML="stack.yaml" stack ghci course:test:course-tests
Getting project config file from STACK_YAML environment
Using main module: 1. Package `course' component course:test:course-tests with main-is file: /Users/xxx/gits/fp-course/test/Spec.hs
The following GHC options are incompatible with GHCi and have not been passed to it: -threaded
Configuring GHCi with the following packages: course
GHCi, version 8.0.2: http://www.haskell.org/ghc/  :? for help
<command line>: can't load .so/.DLL for: /Users/xxx/.stack/snapshots/x86_64-osx/e5555a29f16b11d36296dadc4046142ee96805049489014717b4b47dc561d5c1/8.0.2/lib/x86_64-osx-ghc-8.0.2/libHSsetenv-0.1.1.3-8dEhk6JWvlmCmVyBammSpu-ghc8.0.2.dylib (dlopen(/Users/xxx/.stack/snapshots/x86_64-osx/e5555a29f16b11d36296dadc4046142ee96805049489014717b4b47dc561d5c1/8.0.2/lib/x86_64-osx-ghc-8.0.2/libHSsetenv-0.1.1.3-8dEhk6JWvlmCmVyBammSpu-ghc8.0.2.dylib, 5): REBASE_OPCODE_SET_SEGMENT_AND_OFFSET_ULEB has segment 2 which is not a writable segment (__LINKEDIT) in /Users/xxx/.stack/snapshots/x86_64-osx/e5555a29f16b11d36296dadc4046142ee96805049489014717b4b47dc561d5c1/8.0.2/lib/x86_64-osx-ghc-8.0.2/libHSsetenv-0.1.1.3-8dEhk6JWvlmCmVyBammSpu-ghc8.0.2.dylib)
make: *** [test-ghci] Error 1

(<*>) (f :. fs) xs = (f <$> xs) ++ (fs <*> xs)
(<*>) _ _ = Nil

(<*>) (f :. fs) (x :. xs) = (f x) :. (fs <*> xs)
(<*>) _ _ = Nil

$ stack exec ghci -- -isrc -itest test/Spec.hs
λ: :main --match=Course.Functor/
λ: -- modify src/Course/Functor.hs
λ: :r
λ: :main --match=Course.Functor/

STACK_YAML="stack.yaml" stack ghci course:lib
Getting project config file from STACK_YAML environment
error: attribute 'ghc802' missing, at (string):1:43
(use '--show-trace' to show detailed location information)
make: *** [Makefile:22: ghci] Error 1

$ stack ghc -- --version
The Glorious Glasgow Haskell Compilation System, version 8.0.2

main ::
  IO ()
main = do
  (fp :. _) <- getArgs
  run fp

      [-Wdeferred-type-errors]
     • Couldn't match type ‘[Char]’ with ‘List Char’
       Expected type: Chars
         Actual type: [Char]
     • In a stmt of a 'do' block: (fp :. _) <- getArgs
       In the expression:
         do { (fp :. _) <- getArgs;
              run fp }
       In an equation for ‘main’:
           main
             = do { (fp :. _) <- getArgs;
                    run fp }

main ::
  IO ()
main = do
  args <- getArgs
  case args of
    Nil -> return ()
    (fp :. _) -> run fp