From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/example-based/ExampleService.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/example-based/ExampleService.hs')

diff --git a/src/example-based/ExampleService.hs b/src/example-based/ExampleService.hs
index 28d3731d4..e6312bf96 100644
--- a/src/example-based/ExampleService.hs
+++ b/src/example-based/ExampleService.hs
@@ -71,11 +71,11 @@ doTestFunction cwd cache environ =
 getCId :: String -> CGI CId
 getCId name = maybe err return =<< fmap readCId (getInp name)
   where err = throwCGIError 400 ("Bad "++name) []
-
+{-
 getLimit :: CGI Int
 getLimit = maybe err return =<< readInput "limit"
   where err = throwCGIError 400 "Missing/bad limit" []
-
+-}
 
 readParsePGF cwd cache =
     do parsepgf <- getInp "parser"
-- 
cgit v1.2.3