Skip to content
This repository has been archived by the owner on Apr 29, 2024. It is now read-only.

Commit

Permalink
Remove Paths nonsense
Browse files Browse the repository at this point in the history
  • Loading branch information
chrisdone committed May 11, 2016
1 parent efbd4da commit 789552c
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 5 deletions.
6 changes: 2 additions & 4 deletions src/TryHaskell.hs
Expand Up @@ -9,8 +9,6 @@

module TryHaskell where

import Paths_tryhaskell

import Control.Arrow ((***))
import Control.Applicative ((<$>),(<|>))
import Control.Concurrent
Expand Down Expand Up @@ -75,7 +73,7 @@ startServer :: Cache
-> IO ()
startServer cache stats =
do env <- getEnvironment
static <- getDataFileName "static"
static <- return "static"
let port =
maybe 4001 read $
lookup "PORT" env
Expand Down Expand Up @@ -300,7 +298,7 @@ ioResult e r =
mueval :: Bool -> String -> IO (Either Text (Text,Text,Text))
mueval typeOnly e =
do env <- getEnvironment
importsfp <- getDataFileName "Imports.hs"
importsfp <- return "Imports.hs"
let timeout = maybe "1" id $ lookup "MUEVAL_TIMEOUT" env
options = ["-i","-t",timeout,"--expression",e] ++
["--no-imports","-l",importsfp] ++
Expand Down
1 change: 0 additions & 1 deletion tryhaskell.cabal
Expand Up @@ -23,7 +23,6 @@ data-files: Imports.hs

library
exposed-modules: TryHaskell
other-modules: Paths_tryhaskell
hs-source-dirs: src/
ghc-options: -Wall
build-depends: QuickCheck
Expand Down

0 comments on commit 789552c

Please sign in to comment.