[[!comment format=mdwn
 username="stappers@eb96885816da287c29f6f699999434d532149234"
 nickname="stappers"
 avatar="http://cdn.libravatar.org/avatar/bf33450acf6fc2a17a8b4e6fc7749c65"
 subject="stack extra dep  threepenny-gui-0.8.2.0   compile error"
 date="2017-12-29T09:22:34Z"
 content="""
With having

	extra-deps:
	- propellor-5.1.0
	- threepenny-gui-0.8.2.0

in `stack.yaml` gives me this compile error:

	Preprocessing executable 'propellor-config' for secret-project-0.0...
	[ 7 of 10] Compiling Installer.UI     ( Installer/UI.hs, .stack-work/dist/x86_64-linux-nopie/Cabal-1.24.2.0/build/propellor-config/propellor-config-tmp/Installer/UI.o )
	             
	/home/stappers/src/secret-project/Installer/UI.hs:282:32: error:
	    • Couldn't match type ‘(t1, (Int, Int))’ with ‘[Char]’
	      Expected type: UI.DragData
	        Actual type: (t1, (Int, Int))
	    • In the pattern: (_d, (x, y))
	      In the second argument of ‘($)’, namely
	        ‘\ (_d, (x, y))
	           -> void
	              $ do { now <- getTime clock;
	                     liftIO $ writeIORef draginfo (x, y, now);
	                     .... }’
	      In a stmt of a 'do' block:
	        on UI.dragStart elt
	        $ \ (_d, (x, y))
	            -> void
	               $ do { now <- getTime clock;
	                      liftIO $ writeIORef draginfo (x, y, now);
	                      .... }
	             
	/home/stappers/src/secret-project/Installer/UI.hs:487:27: error:
	    • Couldn't match type ‘(t0 a0, (Int, Int))’ with ‘[Char]’
	      Expected type: UI.DragData
	        Actual type: (t0 a0, (Int, Int))
	    • In the pattern: (d, (x, y))
	      In the second argument of ‘($)’, namely
	        ‘\ (d, (x, y))
	           -> when (not (null d))
	              $ liftIO $ writeIORef dropSuccess (True, (x, y))’
	      In a stmt of a 'do' block:
	        on UI.drop elt
	        $ \ (d, (x, y))
	            -> when (not (null d))
	               $ liftIO $ writeIORef dropSuccess (True, (x, y))
	             
	--  While building custom Setup.hs for package secret-project-0.0 using:
	      /root/.stack/setup-exe-cache/x86_64-linux-nopie/Cabal-simple_mPHDZzAJ_1.24.2.0_ghc-8.0.2 --builddir=.stack-work/dist/x86_64-linux-nopie/Cabal-1.24.2.0 build exe:propellor-config --ghc-options \" -ddump-hi -ddump-to-file\"
	    Process exited with code: ExitFailure 1
	
I hope it is reproduceable and that it can be fixed.

Thank you

Groeten

Geert Stappers

"""]]
