- Haskell-Cafe - Haskell.org

cabal install of HDBC-odbc fails on ghc 6.7, -I flag causes problems
by Thomas Hartman 31 Aug '07

31 Aug '07

problemw with the -I flag to ghc are causing cabal install to fail for hdbc-odbc (darcs head). man ghc still reports that -I is a valid flag after installing ghc 6.7 from darcs head a couple days ago. I think the problem might be the space after the -I flag (which is bad for both 6.6.1 and 6.7) hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>/usr/local/bin/ghc-6.7.20070816 -I. -e '' Setup.hs hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>/usr/local/bin/ghc-6.7.20070816 -I/ -e '' Setup.hs hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>/usr/local/bin/ghc-6.7.20070816 -I / -e '' Setup.hs ghc-6.7.20070816: unrecognised flags: -I just a guess... anothing thing is it seems like there's a new INCLUDE pragma in 6.7. perhaps this should be used in one of the source files to get it to compile. but which one? I couldn't figure out what was causing ghc -c -I dist/build/Database/HDBC/ODBC/Connection_hsc_make.c -o dist/build/Database/HDBC/ODBC/Connection_hsc_make.o to be run. (I did try grepping on ghc but no luck, below.) Any tips on debugging this cabal install would be appreciated. thanks, thomas ************* $ runghc Setup.hs configure; runghc Setup.hs build ..... configure: Using tar found on system at: /bin/tar Reading parameters from /home/hartthoma/installs/HDBC-odbc-head/hdbc-odbc/HDBC-odbc.buildinfo Preprocessing library HDBC-odbc-1.1.2hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>darcs whatsnew.0... ghc-6.7.20070816: unrecognised flags: -I Usage: For basic information, try the `--help' option. compiling dist/build/Database/HDBC/ODBC/Connection_hsc_make.c failed command was: ghc -c -I dist/build/Database/HDBC/ODBC/Connection_hsc_make.c -o dist/build/Database/HDBC/ODBC/Connection_hsc_make.o ........ hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>darcs whatsnew { hunk ./Setup.hs 8 -main = defaultMainWithHooks defaultUserHooks{preConf = conf, postConf = ok} - where ok _ _ _ _ = return ExitSuccess +--main = defaultMainWithHooks defaultUserHooks{preConf = conf, postConf = ok} +-- where ok _ _ _ _ = return ExitSuccess +main = do + let ok _ _ _ _ = do return ExitSuccess + return () + in defaultMainWithHooks defaultUserHooks{preConf = conf, postConf = ok} + return () + } ..... hartthoma@linuxpt:~/installs/HDBC-odbc-head/hdbc-odbc>grep -i ghc * HDBC-odbc.buildinfo:ghc-prof-options: HDBC-odbc.buildinfo:ghc-options: HDBC-odbc.cabal:GHC-Options: -O2 Makefile:GHCPARMS := -fglasgow-exts Makefile:all: setup # GHC build Makefile: ghc -package Cabal Setup.hs -o setup Makefile: cd testsrc && ghc --make -package mtl -package HUnit -package MissingH -package HDBC -lodbc $(GHCPARMS) -o runtests -i../dist/build:.. ../d\ ist/build/hdbc-odbc-helper.o runtests.hs Makefile:test-ghc6: testsrc/runtests Makefile:interact-ghci: all Makefile: ghci -idist/build -Ldist/build $(GHCPARMS) Makefile:test: test-ghc6 test-hugs README.txt:You'll need either GHC 6.4.1 or above, or Hugs 2005xx or above. If README.txt:2) ghc --make -o setup Setup.lhs README.txt:To use with GHC, you'll want to use: --- This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

2 5

2D game graphics library for Haskell?
by peterv 30 Aug '07

30 Aug '07

I’m currently playing around with SOE to make some simple interactive math exercises for students. This worked fine, although I could have done this much faster using C# (which I know very well), but since I’m addicted to Haskell now, I used the latter language ;) Furthermore, I hope that one day, I will know enough Haskell to learn it to the students, because I feel that functional programming should not be given in the last bachelor or master years, since most software engineering students then know OO programming extremely well and have a horrible time with FP (I currently did not meet anyone in my sector of game development that liked FP, and many of those people had a masters degree and some were PhDs) Anyway, SOE is great for learning Haskell, but it lacks a couple of fundamental functions to make it really attractive, like: - Support for images - Support for rendering to an “offscreen graphics surface” and reading the pixels from that surface (for pixel-wise collision detection) - Support for detecting non-ASCII key presses (cursor keys, etc) - Support for joysticks Concurrent Clean seems to have a nice 2D game library and PLT/DrScheme also has nice support for basic 2D graphics, but somehow I feel Haskell is more mature and more elegant. So before digging into “advanced” APIs (like GTK itself, which I know nothing about, I’m a Win32 GDI/XNA/WPF expert), I should ask the question if something similar exists? It has to be as simple as SOE. Would it be possible to extend the GTK SOE with support for the features mentioned above? Is this insanely difficult for someone like me who knows a lot about Win32 but little Haskell? Thanks, Peter Verswyvelen No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.4/969 - Release Date: 23/08/2007 16:04

2 1

Re: [Haskell-cafe] Haskell on the Playstation 3? :-)
by Miguel 30 Aug '07

30 Aug '07

> Hmmm, random thought along similar lines, I mean I know the answer to > this thought is no, but I'm curious: could we get Haskell to run on a > graphics card??? I mean, I'm guessing the answer is no (not a > difficult guess ;-) ), but curious what it would take to make a > graphics card able to run Haskell? What about running Haskell on a PostScript printer? PostScript IS Turing-complete.

5 4

Bug in Gtk2HS 0.9.12/SOE on WinXP? Or is it just me?
by Peter Verswyvelen 30 Aug '07

30 Aug '07

First of all, I'm really excited that GTK2HS 0.9.12 now allows launching SOE apps using GHCI. However, in the code below the blue and green triangle should render on top of each other, but the green triangle is rendered incorrectly. Being a newbie, I hesitate to file a bug report... Can anyone reproduce this? Maybe it works fine on unix? Thanks, Peter module Main where import Graphics.SOE.Gtk shape = [(200,100), (200,200), (100,200), (200,100)] main = runGraphics $ do w <- openWindow "Buggy polgon fill?" (300,300) setGraphic w $ (withColor Red $ polyline shape) `overGraphic` (withColor Green $ drawRegion $ createPolygon shape) drawInWindow w $ (withColor Red $ polyline shape) `overGraphic` (withColor Blue $ polygon shape) waitForClose w closeWindow w waitForClose w = do e <- getWindowEvent w case e of Closed -> return () otherwise -> waitForClose w

3 2

GHC optimisations
by Andrew Coppin 30 Aug '07

30 Aug '07

Does GHC do stuff like converting (2*) into (shift 1) or converting x + x into 2*x? If I do x * sin 12, is GHC likely to compute sin 12 at compile-time?

17 42

compiling happs under 6.7 (unbound implicit parameter error)
by Thomas Hartman 30 Aug '07

30 Aug '07

After much progress and learning, I'm stuck again trying to get happs to compile under ghc 6.7. (Hoping that running happs under the new ghc debugger will help me understand it better.) I was trying to compile from the "stable" 8.8 version, unzipped and with just a few modifications. (see attached zip). The problem has to do with an "unbound implicit parameter" [53 of 72] Compiling HAppS.Protocols.MessageWrap.W ( src/HAppS/Protocols/MessageWrap/W.hs, dist/build/HAppS/Protocols/MessageWrap/W.o ) src/HAppS/Protocols/MessageWrap/W.hs:209:63: Unbound implicit parameter (?style::Element -> XML Element) arising from a use of `xmlWrapM' at src/HAppS/Protocols/MessageWrap/W.hs:209:63-72 In the expression: xmlWrapM v In the definition of `ehShow'': ehShow' (DynException e) | Just (DynErr' v) <- fromDynamic e = xmlWrapM v I'd appreciate any advice. thomas. --- This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

1 0

trouble compiling regex posix head (I think >0.92) on ghc 6.7
by Thomas Hartman 30 Aug '07

30 Aug '07

I'm trying to compile regex-posix on ghc 6.7. (Ultimate goal: happs on 6.7). First, I patched by changing the cabal file to be compatible with the new libraries broken out of base. I also had to add HsRegexPosixConfig.h to include/regex (I just copied it from somewhere else on my hard drive where I guess it had been put by an earlier regex-posix install, I don't know if it's compatible here but at least it permitted things to compile further.) Setup.hs build -v3 had a lot of warnigs but didn't seem to fail. However, Setup.hs install -v3 didn't work. the problem in build seems to occur around "upsweep partially failed or main not exported"... [6 of 6] Compiling Text.Regex.Posix ( Text/Regex/Posix.hs, dist/build/Text/Regex/Posix.o ) *** Parser: *** Renamer/typechecker: Text/Regex/Posix.hs:57:2: Warning: The export item `module Text.Regex.Posix.String' exports nothing Text/Regex/Posix.hs:59:2: Warning: The export item `module Text.Regex.Posix.Sequence' exports nothing Text/Regex/Posix.hs:61:2: Warning: The export item `module Text.Regex.Posix.ByteString' exports nothing Text/Regex/Posix.hs:63:2: Warning: The export item `module Text.Regex.Posix.ByteString.Lazy' exports nothing *** Deleting temp files: Deleting: /tmp/ghc9618_0/ghc9618_0.s Warning: deleting non-existent /tmp/ghc9618_0/ghc9618_0.s Upsweep partially successful. *** Deleting temp files: Deleting: link(batch): upsweep (partially) failed OR Main.main not exported; not linking. *** Deleting temp files: Deleting: *** Deleting temp dirs: Deleting: /tmp/ghc9618_0 complete output (along with patch) is attached. I'd appreciate any advice. best, thomas. --- This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

1 0

runInteractiveCommand behaves differently on linux and windows
by Thomas Hartman 29 Aug '07

29 Aug '07

Maybe this is by design, but I just thought I would point this behavior out and ask for comment. test1 merely shows that runInteractiveCommand reacts differently to perl warnings than perl errors. Okay, maybe the inconsistency in that case is due to perl and not haskell. test2 behaves the same on win and nix. This is "pipe like" in that the ouptut of a command (which could be the result of a shell call, but just as easily be the return of a haskell function) gets fed into a shell command. In this case, if the shell command is simply "tail" the behavior is consistent from win to nix. test3 shows that the behavior stops being consistent if ssh enters the picture. (piping to tail via ssh). again, maybe this is due to ssh and not haskell. however... note however that on windows ghc -e 'mapM_ ( putStrLn . show ) [1..1000] ' | ssh `whoami`@localhost 'tail -n2' works fine. so it's not *just* ssh, but ssh in conjuction with runInteractiveCommand which seems to cause problems FWIW, using 10 lines instead of 1000 still hangs on windows. Is there a way to code up shell pipelike behavior in a more portable way? curious what the cafe thinks... thomas. import Test.HUnit import Misc ( (>>=^) ) import System.Process import System.IO import System.Exit -- works on linux, error on windows test1 = do res1 <- test_shellrunStderrOk runTestTT $ TestCase ( assertEqual "test1" "made it" res1 ) where test_shellrunStderrOk = do runprocessStdErrAllowed' "" cmdPerlwarn return "made it" cmdPerldie = " perl -e 'die \"error\"' " cmdPerlwarn = " perl -e 'warn \"blee\"' " -- works on linux, windows test2 = pipeTo "tail -n2" -- works on linux, hangs on windows test3 = pipeTo "ssh `whoami`@localhost 'tail -n2'" pipeTo cmd = do res2 <- test_shellrunPipeinLike runTestTT $ TestCase ( assertEqual ( "pipe to, cmd: " ++ cmd) (show l) res2 ) where test_shellrunPipeinLike = do runprocessStdErrAllowed' (unlines $ map show [1..l]) ( cmd ) >>=^ filter (not . ( == '\n') ) l = 1000 runprocessStdErrAllowed' inp s = do (ih,oh,eh,pid) <- runInteractiveCommand s so <- hGetContents oh se <- hGetContents eh hPutStrLn ih inp hClose ih ex <- waitForProcess pid case ex of ExitFailure e -> fail $ "shell command " ++ s ++ "\nFailed with status: " ++ show e _ | otherwise -> return so --- This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.

1 1

Re: [Haskell-cafe] Norvig's Sudoku Solver in Haskell
by manu 29 Aug '07

29 Aug '07

Daniel Fischer's modifications to my original program lead to a 400 % speed boost !!! (It now runs in 22 seconds on my machine) He avoided unecessary calls to 'length', uses Array instead of Map, refactored 'search' function (details below) I've put up his version on hpaste : http://hpaste.org/2452#a1 Manu On Aug 26, 2007, at 10:56 PM, Daniel Fischer wrote: > Without much thinking I can spped it up by a factor of 4 (from 280s > to 60s). > The most important things are: > - don't use length unless you need it > instead of > newV2 <- case length newCell of > 0 -> Nothing > ... > and > case length dPlaces of > 0 -> ... > use > case newCell of > [] -> Nothing > [d'] -> ... > and > case dPlaces of > [] -> Nothing > [s'] -> ... > > - let dPlaces = [ s' | u <- lookup s units, s' <- u, elem d (lookup > s' newV2)] > is bad > let dPlaces = [s' | s' <- lookup s peers, elem d (lookup s' newV2)] > scans each peer only once > > - search is really bad, you lookup all squares several times, > potentially > compute all lengths multiple times... > much better is > > search :: Grid -> Maybe Grid > search g = case [(l,a) | a@(_,xs) <- M.assocs g, let l = length xs, > l /= 1] of > [] -> return g > ls -> do let (_,(s,ds)) = minimum ls > msum [assign g (s,d) >>= search | d <- ds] > > (I also changed the type, and instead of foldl' you should use > foldr, since > "some" is lazy in the second argument, further, since Maybe is a > MonadPlus, > it's "mplus" and 'foldr mplus Nothing' is msum) > > - Maps aren't good here, too slow lookup and you know the keys, so > use arrays >

5 7

Searching for a subsequence in Data.Sequence structure?
by Justin Bailey 29 Aug '07

29 Aug '07

Does anyone have code for finding a subsequence within a Data.Sequence.Seq value, or is there a way to do it with the already defined instances that I am missing? A quick search didn't turn up much. Thanks in advance! Justin

1 0